主题：关于下拉窗口筛选

将窗口的DropDownOpened事件代码设置为:

Dim txt As String = Tables("销货fa piao信息表").Current("客户代号")
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    tbl.Filter = "客户 = '" & txt & "'"
End If