Question

vfp删除命令按钮问题

数据表名字member,一个lst控件,要求单击删除按钮可实现删除当前选定的记录,同时在列表中也删除..求删除按钮代码!QQ:865690887

Answer 1

sele member
loca for TRIM(会员号)==TRIM(THISFORM.LIST1.VALUE)
IF FOUND()
DELE
PACK
THISFORM.TEXT1.VALUE=''
THISFORM.TEXT2.VALUE=''
...
&&其他的TEXT和都初始化成空值
THISFORM.EDIT1.VALUE=''

ENDIF
X=THISFORM.LIST1.LISTINDEX
IF X>0
THISFORM.LIST1.REMOVEITEM(X)
ENDIF

Answer 2

我看你的列表好像是直联的数据表，可以直接用下面的代码即可
aa=messagebox('确认删除此信息吗？',4+32,'确认删除')
if aa=6
select member
delete
pack
thisform.lst.refresh
endif