有人可以帮我理解为什么这段代码没有产生预期的结果吗?我有一个带有名为 TxtVendorSearch 的文本框的表单。
当用户开始在此文本框中输入内容时,我希望它开始过滤表单子数据表中的结果。
我从一个完全填充的数据表开始,我不确定为什么一旦我开始输入一个应该留下结果的有效过滤器,过滤器就会把整个事情都清空。
Private Sub TxtVendorSearch_KeyPress(KeyAscii As Integer)
Dim str1 As String
str1 = "[VendorID] LIKE '*" & Me.TxtVendorSearch.Value & "*' "
Me!subOrderDS1.Form.Filter = str1
Me!subOrderDS1.Form.FilterOn = True
End Sub