楼上Set Centry ON 了 就可以了

模糊查询问题

做查询的时候，总希望能用尽量少的信息找到所需要的记录。用“=”作为条件太严格；用AT函数或$虽有所改进，却也只能找到连续匹配的字符串；若能给出"人大"就能找到"中国人民大学","全国人民代表大会","省人民代表","人小心大"等，岂不美妙?这也属于模糊查询的范畴。

结合实例写上部分代码，期望能抛砖引玉。假设表单的"职工.DBF"文件内容被显示在表格(GRID1)中，有一文本框TEXT1放的是欲查询的模糊信息，需要从"姓名"这个字段中查找该模糊信息，则"查询"命令按钮的CLICK代码为

cString=ALLTRIM(THISFORM.TEXT1.VALUE)
IF EMPTY(cString)
SELECT * FROM 职工
ELSE
cText="%"
FOR nCnt=1 TO LEN(cString)
IF ISLEADBYTE(SUBSTR(cString,nCnt))
cText=cText+SUBSTR(cString,nCnt,2)+"%"
nCnt=nCnt+1
ELSE
cText=cText+SUBSTR(cString,nCnt,1)+"%"
ENDIF
ENDFOR
SELECT * FROM 职工 WHERE 姓名 LIKE (cText)
ENDIF
* BY Tiger5392 (C)Copyright 2006-2006

看了楼上各位的技巧，收获很多，还不能一一验证和掌握，先收下了。
作为回报，我也写些内容与大家分享。
我编程总想简单，能不用控件就不用控件，在动态显示进度时，我们总是用控件ProgressBar Control，我现在用两个文本框代替这个控件同样解决了问题，而且不存在控件的注册问题。
步骤一，在表单上添加两个文本框，重叠，text2在text3之上，两个ENABLED、visible均设为.f.，text3略小些，disabledbackcolor高为rgb(255,255,0)黄色（或其他色），text2高为透明，文本居中，disabledforecolor高为rgb(0,0,0)。text3的width=A（最后的宽度）。
[IMG]C:\a.bmp[/IMG]
步骤二：程序运行后，求出记录总数B。在text2\text3的visible=.t.之前，令text3.width=0
步骤三：显示进度，设已处理记录数为C，不断修正text3.width=C*A/B，并显示text2.value=str(C*100/B,3)+"%",
这样随着程序的进行，一个动态的进度条生成了。
第四步：结束后，将text2\text3的visible=.f.即可。
使用和设置一点也不比ProgressBar Control控件复杂。当然这个进度条还不是很美观。

[此贴子已经被作者于2006-10-19 19:31:00编辑过]

13楼的办法的确很好，实际上还可以用动态画方框的方法解决。

大家多多交流,共同进步!

这个网站作的非常好!要常来哦!原找志同道合之士,共同学习编程.我的QQ:397942679.别忘了加我哦!

12楼的方法我试了一下
不怎么管用啊
也可能是我放错了地方
但在我这里真的实现不了啊
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？

TO:心随所欲

你可以根据12楼的提示进行测试。这里，为了快速方便你测试，建议你在表单中只添加两个控件：一个文本框TEXT1，一个命令按钮COMMAND1。但事先在表单的初始化部分THISFORM.INIT打开表“职工.DBF”，设置文本框的INPUTMASK中X的个数与姓名宽度一致，并在表中添加用于测试的数据，比如“张三”、“张大三”、“张小三”、“李四”、“李大四”、“李小四”等数据。你将12楼的程序一个字不改地复制到命令按钮的CLICK事件中。

运行表单后在文本框中输入“张三”，点击命令按钮，结果是不是出现前面所说的3条记录。

谢谢分享！

请问二楼的:"IIf(recn()="+M_RECNSTR+",RGB(255,255,255),RGB(0,0,0))"这个表达式中,M_RECNSTR是个变量,为什么用两个+号还用引号