609
社区成员
发帖
与我相关
我的任务
分享
string ls_max, ls_detail
long ll_count, ll_row, i, ll_tmp
dw_1.setredraw( false )
//确保出现滚动框
do while dw_1.object.datawindow.VerticalScrollMaximum = '0'
dw_1.insertrow(0)
i ++
loop
ll_count = dw_1.rowcount()
ls_max = dw_1.object.datawindow.VerticalScrollMaximum
ls_detail = dw_1.object.datawindow.detail.height
ll_tmp = long(ls_max)/long(ls_detail)
ll_row = ll_count - ll_tmp
if i > 0 then dw_1.rowsmove( ll_count - i + 1, ll_count, primary!, dw_1, 1, delete! )
dw_1.setredraw( true )
messagebox( '', '可显示行:' + string(ll_row) )