thisform.grd病人就诊情况表.setfocus
do case
case thisform.optiongroup1.value=1
locate all for alltrim(病人就诊情况表.姓名)==alltrim(this.parent.parent.text1.value)
if found()
y=recno()
go y
messagebox("病人已经找到!")
else
messagebox("未找到此病人,请确认!")
endif
case thisform.optiongroup1.value=2
locate all for alltrim(病人就诊情况表.就诊科室)==alltrim(this.parent.parent.text1.value)
if found()
y=recno()
go y
messagebox("病人已经找到!")
else
messagebox("未找到此病人,请确认!")
endif
endcase

你的问题都很含糊的。问得详细点吧。
还有一个问题，就是问题连个点数都不给，太吝啬了吧。

那你给俺加几个数好了

行呀，你回答得好了，我给你加。

俺84楼主 俺4滴话9多设几个数