Data1.RecordSource = "select 表1.字段,表2.字段,表3.字段 FROM 表1,表2,表3" Data1.Refresh
我是要实现:当在Text1输入值后,在Text2显示与Text1相关联的数据!
Data1.RecordSource = "select * FROM 表1 where 数据字段='" & TEXT1.TEXT &"'" Data1.Refresh 我只用改了一下sxs69() 但不知道行不行,你试试吧! 不过,我个人见意你还是用代码来写吧!用这种控件来绑定数据有一些不方便.
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Data1.RecordSource = "select Authors.AU_ID,Publishers.PubID FROM Authors,Publishers where Publishers.PubID= " & Text1.Text & "" Data1.Refresh Text2.Text = Data1.Recordset.Fields(0) End If End Sub
在text1的change事件中写
Data1.Refresh
Data1.Refresh
我只用改了一下sxs69() 但不知道行不行,你试试吧!
不过,我个人见意你还是用代码来写吧!用这种控件来绑定数据有一些不方便.
If KeyAscii = 13 Then
Data1.RecordSource = "select Authors.AU_ID,Publishers.PubID FROM Authors,Publishers where Publishers.PubID= " & Text1.Text & ""
Data1.Refresh
Text2.Text = Data1.Recordset.Fields(0)
End If
End Sub