当前位置: 代码迷 >> VFP >> vfp 怎么清空临表数据
  详细解决方案

vfp 怎么清空临表数据

热度:2597   发布时间:2013-02-26 00:00:00.0
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
  相关解决方案