Private Sub txt_name_Change()
Adogrid.RecordSource = "select * from patient where name=" '_
& trim(txtname.text) &""'
Adogrid.Refresh
End Sub
Private Sub txtpatient_id_Change()
Adogrid.RecordSource = "select * from patient where patient_id='''_"
& trim(tetpatient_id.text) &""'
Adogrid.Refresh
End Sub
回复此楼
