窗口表table1和table2，需求：查找出table2包含输入框文字的物供号，table1和table2保持到货单据号对应，怎么写？
此主题相关图片如下：qq图片20190424101632.png
TextChanged
Dim txt As Integer = Forms("到货物检").Controls("TextBox1").Text
Dim tbl As Table = Tables("到货物检_Table2")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.Filter = "物供号 Like " & txt
End If
If Forms("到货物检").Opened()
Dim t As Table = Tables("到货物检_table2")
Dim d As Table = Tables("到货物检_table1")
If d.Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "到货单据号 = '" & d.Current("到货单据号") & "'
End If
End If
加好友 
发短信
Post By：2019/4/24 10:23:00 [只看该作者]
