这是代码
x=alltrim(thisform.text1.value)
select yonghu
use
use yonghu.dbf exclusive
delete from yonghu where 用户名=x
pack
thisform.activate
thisform.list1.rowsource="select 用户名 from yonghu into cursor temp3"
x=alltrim(thisform.text1.value)
clos table
use yonghu.dbf exclusive
delete for 用户名=x
pack
thisform.activate
thisform.list1.rowsource="select 用户名 from yonghu into cursor temp3"