老师,下面的代码有问题,不能实现,textbox填入编号后,自动能查询出编号下全部行
e.Form.Controls("TextBox1").Text = Tables("投标商务待审_Table3").Current("信息编号")
Dim filter1 As String = "1=2"
For Each dc As Col In Tables("投标商务待审_Table4").Cols
Filter1 &= " or Convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
Next
'Tables("投标商务待审_Table4").Filter = Filter1