各位大哥请教以下,我怎么可以实现按下查询键图右边的GRID1控键就可以显示我左边填入想查询的数据呢?

这个查询按扭的代码怎么编写? #11 谢谢,

[此贴子已经被作者于2006-5-24 16:43:48编辑过]

利用简单的查询命令：
sele 数据表
loca all for <查询条件>
。。。
thisform.refresh
查询按纽:click

用
SET FILTER TO <条件>
可能最好

假设你在表单的初始化程序(FORM1.INIT)中打开了表
CLOSE ALL
USE 表1.DBF
THISFORM.GRID1.COLUMNCOUNT=-1
THISFORM.GRID1.RECORDSOURCETYPE=6
THISFORM.GRID1.RECORDSOURCE="表1"

则你就可以在查询命令按钮(比如根据文件名查询的那个命令按钮)写上这样的程序
IF THIS.CAPTION="查询"
THIS.CAPTION="取消"
SET FILTER TO 文件名=THISFORM.TEXT2.VALUE
ELSE
THIS.CAPTION="查询"
SET FILTER TO
ENDIF
THISFORM.REFRESH

[此贴子已经被作者于2006-5-26 15:14:18编辑过]