Question

急求在vfp 表格中怎么重复出现要查的情况

我在表单中建了三个复选框控件，一个文本框控件，一个表格控件，一个“查找”命令按件。我想通过选中复选框，再在文本框内输入要查的内容，来在表格中体现出来。我建的表里面有重复的内容，有alltrim(thisform.text1.value)不能查到重复的哪些，代码怎么写啊？例：毕业学校都是山大。在查找command1 中click中怎么写代码啊？

Answer 1

不知你三个复选框是什么内容，其中check1.caption='毕业学校'(我觉得应该用单选按钮，因为只有一个文本框。)
command1.click
aaa=alltrim(thisform.text1.value)
if empty(aaa)
set filter to
else
if check1.value=.t.
set filter to 毕业学校=aaa
endif
if check2.value=.t.
set filter to ....
endif
if check3.value=.t.
set filter to ....
endif
endif
ThisForm.Grid1.ReFresh
采用过滤的方法，如果文本框什么都不输，则取消过滤。

Answer 2

CmdFind.Click代码:
Local lcKeyWords,lnCurRecno
If Empty(ThisForm.Text1.Value)
Return
Endif
lcKeyWords = Alltrim(ThisForm.Text1.Value)
Select StdTable &&查询表
lnCurRecno = Recno() &&查前记录号
Locate For 毕业学校 = lcKeyWords
If Found()
Select StdTable
If Recno() == lnCurRecno
&&第一条匹配当前记录，说明指针没动,我们需要的下一条
Skip
Locate For 毕业学校 = lcKeyWords
Else
&&
Select StdTable
Go Top
Locate For 毕业学校 = lcKeyWords
Endif
Endif