VFP中List中初始化获取到数据库中记录,如何做到选择性移除或删除呢?
于之 2017-08-15 05:30:08 VFP中List中初始化获取到数据库中记录,如何做到选择性移除或删除呢?
我的List中 init中获取的是一个表中的数据记录
SELECT tempemails2
GO top
If !Eof()
WITH thisform
.list4.RowSourceType=2
.list4.ColumnCount=5
.list4.RowSource="BMcode,deptname,username,useremail,position"
.list4.ColumnWidths="30,80,50,120,60"
.list4.Requery
.list4.Refresh
ENDWITH
ENDIF
而我想在List旁边加一个“移除选择项“ 其中代码如下:
with thisform.list4
for lncnt=1 TO .listcount
DO WHILE .selected(lncnt)
.removeitem(lncnt)
ENDDO
endfor
.refresh
endwith
而这样是不会移除,只会造成死机或无反应。请问要如何处理才好呢? 谢谢