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