主题：关于搜索的问题
xm7050432
[专家分：180] 发布于 2009-01-15 15:36:00
这几天在论坛得到很多老师的帮忙，在此表示感谢。
今天又有个想法，但是能力有限，请各位老师帮忙？
[img]http://imgqun.qq.com/cgi-bin/img?uuid=203dd084d68d31818645e8f1d6b86c8002[/img]
vfp有个自带的搜索功能，我想把他拿来用，但是不知道要怎么修改才能把输出记录调整到gird中。请各位老师帮忙下。谢谢。
回复列表 （共5个回复）
沙发
xm7050432 [专家分：180] 发布于 2009-01-15 15:44:00
其实我的本意是想做一下功能，后来发现和系统自带的搜索差不多。
[img]http://imgqun.qq.com/cgi-bin/img?uuid=20609263dc39176ce597248a648ca7bda5[/img]
我做了2个下拉框，一个是某个表的一些属性值，另一个有三个可选值，空，非空，具体值。 但是我一直写不出代码，按钮代码如下：
jsr=thisform.combo3.Value
DO case
case thisform.combo4.Value="空白"
SELECT lsjfcx
SET FILTER TO &jsr=thisform.combo4.Value
case thisform.combo4.Value="非空白"
SELECT lsjfcx
SET FILTER TO &jsr=thisform.combo4.Value
other
SELECT lsjfcx
SET FILTER TO &jsr=thisform.combo4.Value
endcase
thisform.grid1.RecordSource="lsjfcx"
thisform.grid1.Refresh
ThisForm.Grid1.AutoFit(.T.)
IF RECCOUNT()<1
MESSAGEBOX("没有找到相关记录!",0+48,"信息提示")
else
thisform.text1.value=alltrim(STR(RECCOUNT()))
THISFORM.text1.REFRESH
ENDIF
Thisform.grid1.SetAll("DynamicBackColor","iif(Mod(Recno(),2)=1,RGB(255,255,255),RGB(192,192,192))","Column")
thisform.command8.Enabled= .T.
一直提示 不匹配，所以想用系统的试试，或者哪位老师也可以帮我改下上面的代码。
板凳
xm7050432 [专家分：180] 发布于 2009-01-16 10:36:00
我把set filter to 改为 select * form xx where ...的 语句就可以。
但是不明白其中的原因。哪位老师点拨下，谢谢。
3 楼
cbl518 [专家分：57140] 发布于 2009-01-17 14:38:00
set filter to 逻辑条件表达式 in (thisform.grid1.RecordSource)
4 楼
foxdb [专家分：1830] 发布于 2009-01-18 03:18:00
楼主看看这个演示符合你的要求吗?
1
[img]http://www.enhor.com/temp/101.jpg[/img]
2
[img]http://www.enhor.com/temp/102.jpg[/img]
3
[img]http://www.enhor.com/temp/103.jpg[/img]
4
[img]http://www.enhor.com/temp/104.jpg[/img]
5
[img]http://www.enhor.com/temp/105.jpg[/img]
6
[img]http://www.enhor.com/temp/106.jpg[/img]
7
[img]http://www.enhor.com/temp/107.jpg[/img]
8
[img]http://www.enhor.com/temp/108.jpg[/img]
9
[img]http://www.enhor.com/temp/109.jpg[/img]
5 楼
lbscyb [专家分：4780] 发布于 2009-01-24 00:42:00
直接调用系统的这个类就可以了，自己写代码很长
我来回复
您所在位置：