**将查询数据插入临表
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