好了,最后将代码改成这样
Dim txt As String = e.Form.DropDownBox.Text
Dim dr As Row = Tables("订单明细").current
Dim tbl As Table = Tables("客户产品下拉窗口_Table1")
If txt = "" Then
Tables("客户产品下拉窗口_Table1").Filter = "客户姓名 = '" & dr("客户姓名") & "'"
Else
txt = "'*" & txt & "*'"
tbl.Filter = "客户姓名 = '" & dr("客户姓名") & "' Or 产品名称 Like " & txt
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
实现了想要的功能了,感谢林总跟布莱克朱老师,
学生愚钝再请教下这行代码,"客户姓名 = '" & dr("客户姓名") & "' Or 产品名称 Like " & txt 中为什么用or来连接呢?而不是用And? 还望老师赐教
帮助文件中的的解说看了很长时间了看不明白,能否用通俗的词概括下
And |
逻辑与,如果左右表达式的值都为True,则返回True,否则返回False |
AndAlso |
逻辑与,如果左右表达式的值都为True,则返回True,否则返回False |
Or |
逻辑或,如果左右表达式的值至少有一个True,则返回True,否则返回False |
OrElse |
逻辑或,如果左右表达式的值至少有一个True,则返回True,否则返回False |