vfp 怎么清空临表数据

2013-02-03

vfp 如何清空临表数据**将查询数据插入临表SQLEXEC(X_SQLSERVER,select * from T1 where strwlph?thisfo

vfp 如何清空临表数据
**将查询数据插入临表
SQLEXEC(X_SQLSERVER,"select * from T1 where strwlph=?thisform.pageframe1.page1.mytext1.Value and m_del=0","tmp")
SELECT tmp
**将临表数据写入combo框
SCAN
   THIS.addlistitem(tmp.wlph,RECNO(),1)
   THIS.addlistitem(tmp.wlph,RECNO(),2)
ENDSCAN

写完数据后想清空临表（因为tmp临表要重复使用），但以下句语没效，不知道该如何写？请赐教。
dele all
zap
USE IN tmp
[解决办法]

在 Columnm1.text1 KeyPress 事件 这样写

If nKeyCode=13 And Not Empty(This.Value)
SQLExec(X_SQLSERVER,"select * from T1 where strItem=?thisform.pageframe1.page1.mytext1.Value","tmp")
Select tmp
If Reccount()> 0
Thisform.pageframe1.page1.Columnm2.Combo.Clear
Thisform.pageframe1.page1.Columnm2.Combo.RowSourceType=0
Scan
Thisform.pageframe1.page1.Columnm2.Combo.AddItem(wlph)
Endscan
Thisform.pageframe1.page1.Columnm2.Combo.ListItemId=1
Endif
Endif

热点排行

VFP

vfp 怎么清空临表数据