主题：自定义录入界面

帮助中原文：

2、将DropDownBox 的KeyPress 事件代码设置为：

Dim drp As WinForm.DropDownBox = e.Sender

If drp.DroppedDown = False '如果下拉窗口没有打开

drp.OpenDropDown() '打开下拉窗口

End If

这样一旦开始在下拉列表框中输入内容，就能自动打开打开下拉窗口。

3、将DropDownBox 的TextChanged 事件代码设置为：

Dim drp As WinForm.DropDownBox = e.sender

If drp.DroppedDown Then '如果下拉窗口已经打开

Dim tbl As Table = Tables("窗口1_Table1")

If drp.Text = "" Then '如果内容为空

tbl.Filter = "" '显示所有客户

Else '否则根据输入内容进行模糊筛选

Dim txt As String = "'*" & drp.Text & "*'"

tbl.Filter = "客户ID Like " & txt & " Or 公司名称Like " & txt & " Or 地

址Like " & txt & " Or 联系人Like " & txt

End If

End If

1、在客户表中已根据各客户所属的省、市、县设置好其省、市、县。

2、在出库表中已先录入准备筛选客户的省、市、县。

问题：

   设计一个窗口，根据已录入的县份在客户框中列出此县的所有客户，并可根据在客户框中输入的字符进行筛选及填入客户框中，其他如：手机、电话、区域经理、联系人等也同时输入。

其他部分已做好，但不能实现先按县份列出本县所有客户，然后再可以输入字符筛选。

   1、是否要修改2中的条件，第二句改为：如果已录入县份，打开下拉窗口并列出此县的所有客户。

   2、如果上面的修改了，3中的倒数第三句是否要修改，如何修改。