1、出货单中有“付款情况”列和“客户编码”列
2、回款单窗口中有一个客户编码DropDownBox框,用于模糊筛选客户表中的客户编码。
3、要求在回款单窗口的客户编码DropDownBox框输入客户编码,tables(窗口1_table1)关闭后,马上自动打开tables(窗口2_table1)进行精确筛选
4、精确筛选条件是tables(窗口2_table1)的客户编码只等于DropDownBox框的客户编码,同时“付款情况”只等于“未付款”
以下代码可以进行修改利用吗?还有除了这个还需做哪些编写?。
菜鸟刚学
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
Tables("窗口1_Table1").Filter = ""
Else
txt = "'*" & txt & "*'"
tbl.Filter = "客户ID Like " & txt & " Or 公司名称Like " & txt & " Or 地址Like
" & txt & " Or 联系人Like " & txt
End If
e.Form.DropDownBox.Select()