回复 4 楼 sdta
local cText1
cText1=alltrim(thisform.text1.value)
cText2=alltrim(thisform.text2.value)
cText3=alltrim(thisform.text3.value)
select 表1
locate for
A=cText1 or B=cText1 or C=cText1 or D=cText1 or E=cText1 or F=cText1
sele * from 表1 where A=cText1 or B=cText1 or C=cText1 or D=cText1 or E=cText1 or F=cText1
order by A into cursor "ling"
thisform.grid1.recordsource="ling" &&表格控件的数据源为temp这个临时表
else
messagebox("查无此记录")
endif
[
本帖最后由 janjang 于 2014-10-7 13:20 编辑 ]