*关于记录的模糊搜索,该代码可以通过输入表记录字段前一个或几个字符搜索符合条件的所有记录。
*之前要建立一个产品信息表。
*建立表单,设置数据环境为产品信息表。
*设置搜索条件输入文本框Text2
*设置信息提示文本框Text3
*设置搜索命令按钮,代码如下:
PUBLIC J,I&&全局变量主要应用于上一条记录和下一条记录按钮设置
J=0
I=1
*字符串处理
M=ThisForm.Text2.text&&取输入的字符串
E=ALLTRIM(M)&&删除左右空格
X=LEN(E)&&测试字符串长度
F=LEFT(产品信息.产品序号,X)
*查找记录
If X>0
LOCATE FOR LEFT(产品信息.产品序号,X)=E&&找到符合条件的第一条记录
if FOUND()=.T.&&找到记录
A=recno()&&获得当前记录数
Endif
*查找所有符合条件的记录
DO WHILE .not.eof()&&继续查找直到尾记录
if FOUND()=.T.
J=J+1&&记录总数
Endif
CONTINUE
ENDDO
Endif
*后续处理
If X>0 And J=1
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载