Dim Filter As String With e.Form.Controls("TextBox1") If .Value IsNot Nothing Then Filter = "客户名称 = '" & .Value & "'" End If End With If Filter > "" Then Tables("表a").Filter = Filter End If
以上代码,是查询“表a”中字段名为“客户名称”。
客户名称模糊查询的代码是什么啊?
我在帮助中看到以下代码
Dim Str1 As String = "中华人民共和国" Output.Show(Str1.Contains("人民"))