得用到2个实例变量
long il_stoprow= 1 //上一次停在哪一列得记录一下,下次从这几继续哈
boolean ib_stop = false
应该是三个text吧比较合理吧,点名,停止 ,继续
long li
if thistext = '停止' then
thistext = '继续'
li = il_stoprow
do while true //停止的时候得找到没有点过的
if li = dw_1rowcount() + 1 then li = 1
if dw_1getselectedrow(li - 1) = li then //判断当前行已被点过
li ++
else
dw_1selectrow(li,true)
exit //找到没有被点过的推出循环
end if
if li = il_stoprow then //找遍了还没有找到
messagebox('','所有学生均已被点名')
exit
end if
loop
ib_stop = true
return
end if
if thistext = '点名' or thistext = '继续' then
thistext = '停止'
ib_stop = false
do while not ib_stop
if il_stoprow = dw_1rowcount() + 1 then il_stoprow = 1
dw_1scrolltorow(il_stoprow) //滚动起来
il_stoprow ++
yield() //允许处理鼠标单击等其他消息
loop
end if
以上就是关于急急急!!!求各位高手 帮忙做个powerbuilder 点名系统 (程序怎么写)全部的内容,包括:急急急!!!求各位高手 帮忙做个powerbuilder 点名系统 (程序怎么写)、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)