幫我用VB編寫壹個程序

試試下面的方法,當妳在Text1中輸入後點按鈕,則是英文查中文,如果妳是在輸入Text2後點按鈕,則是中文查英文

Dim myText As TextBox

Private Sub Command1_Click()

Text1.Text = Adodc1.Recordset.Fields("English")

Text2.Text = Adodc1.Recordset.Fields("Chinese")

Adodc1.RecordSource = "Select * From 表1 Where " & myText.Tag & " LIKE '" & myText.Text & "%';"

Adodc1.Refresh

End Sub

Private Sub Text1_LostFocus()

Set myText = Text1

End Sub

Private Sub Text2_LostFocus()

Set myText = Text2

End Sub

Private Sub Form_Load()

Text1.Tag="English"

Text2.Tag="Chinese"

End Sub