关于PB ClipBoard在datawindow中不成功的原因

时间:2021-12-08 16:17:08

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)