PB Clipboard函数 ,OBJECT
转载来源: http://hi.baidu.com/smilysoft/item/6400fb00321560dfdce5b016
//双击取某行的明细并赋值到剪贴板上,如果有继承Clipboard函数前需加上:: (*我是有写一个继承自datawindow的自定义uo,加上双冒号成功)
any la_any[]
int i
string ls_text
if row < 1 then return
la_any = this.object.data[row]
for i = 1 to Upperbound(la_any)
if isnull(la_any[i]) then la_any[i] = ''
ls_text = ls_text +string(i)+':' + string(la_any[i])
next
::Clipboard(ls_text)