(1)List1数据类型为字段的话,可以采用下列办法
*Form1.Init:
CLOSE ALL
USE tm1
THISFORM.List1.ROWSOURCETYPE=6
THISFORM.List1.numberofelements=reccount()
THISFORM.List1.ROWSOURCE='tm1.姓名'
*List1.DblClick
DELETE
PACK
THIS.REFRESH
(2)List1数据类型为值的话,可以采用下列办法
*Form1.Init
CLOSE ALL
USE tm1
THISFORM.List1.ROWSOURCETYPE=1
THISFORM.List1.numberofelements=Reccount()
SCAN
THISFORM.List1.ADDITEM(姓名)
ENDSCAN
*List1.DblClick
THISFORM.List1.REMOVEITEM(THISFORM.List1.LISTINDEX)
[[it] 本帖最后由 Tiger5392 于 2008-11-28 17:57 编辑 [/it]]