我用一个combo (NAME 属性是combo查询)来做查询,它有几个选择 ,在init里用 additem 实现选择 然后在text里输入查询条件 txtDelphi 等文本框是用的数据环境拖进去的 在属性卡上手动消除了其ControlSource 可是仍然不能出现我要的结果
代码如下:
tempstr=ALLTRIM(thisform.text1.Value)
tempstr="%"+tempstr+"%"
x=ALLTRIM(thisform.combo查询.DisplayValue)
SELECT c1
SELECT * FROM c1 WHERE x like tempstr INTO CURSOR mm

thisform.txtDelphi.ControlSource='mm.Delphi'
thisform.txtFoxpro.ControlSource='mm.Delphi'
thisform.txtOrcle.ControlSource='mm.Orcle'
thisform.txtSql.ControlSource='mm.Sql'
thisform.txtvisualc.ControlSource='mm.visualc'

怎么改啊?

是显示不出来还是结果错？

是用了这个，txt框里颜色变成灰色了
而且也没有显示出结果

thisform.txtDelphi.value=mm.Delphi
thisform.txtFoxpro.value=mm.Delphi
thisform.txtOrcle.value=mm.Orcle
thisform.txtSql.value=mm.Sql
thisform.txtvisualc.value=mm.visualc
改成这样试试

还有你用的是临时表,是只读的,所以文本框绑定后,也跟着变成只读的,应该改成这样
SELECT * FROM c1 WHERE x like tempstr INTO CURSOR mm readwrite

我加了你说的 readwrite 没用啊
仍然是灰色的

***SELECT * FROM c1 WHERE x like tempstr INTO CURSOR mm
SELECT * FROM c1 WHERE x like tempstr INTO table mm &&&&查询到一个自由表，试试看。

thisform.txtDelphi.ControlSource='mm.Delphi'
thisform.txtFoxpro.ControlSource='mm.Delphi'
thisform.txtOrcle.ControlSource='mm.Orcle'
thisform.txtSql.ControlSource='mm.Sql'
thisform.txtvisualc.ControlSource='mm.visualc'
thisform.refresh &&&&&再刷新一下表单。

对表的查询产生大量数据的情况下，建议不使用多个text控件,改用grid控件