我在表单上放了一个combox和一个grid控件,
在combox 的valid事件中加入一下代码
use &cjb
xx=alltr(thisform.c1.value)
select * from cjb order by &xx desc into table tmp\bb
thisform.grid1.recordsource="bb"
在init事件中加入一下代码
use &cjb
THISFORM.c1.RowSourceType=1
for i=1 to fcount()
thisform.c1.addListItem(fields(i),i)
endfor
表cjb通过其他程序已经大开,为什么运行一开始正常,可我点击combox向按照某列排序后,又要重新大开表,而且一点grid中的表,就提示文件正在使用,然后表就没了,就不动了。是不是代码中少了什么,清高人指教,谢谢!!!!!!!!!!(就还剩18分了)
------解决方案--------------------------------------------------------
你的表cjb在当前目录下吗?
use &cjb
和下面的
select * from cjb
一个用了&,另一个没有,你说明一下。
另外Combo的Valid事件第一行加一句:
thisform.grid1.recordsource=NULL
------解决方案--------------------------------------------------------
select * from cjb order by &xx desc into table tmp\bb
thisform.grid1.recordsource="bb"
路径有点问题,
THISFORM.c1.RowSourceType=1
之前
THISFORM.c1.RowSource=NULL