- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义录入界面 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30505)
-- 发布时间：2013/3/29 10:45:00
-- 自定义录入界面
根据自定义录入界面之四修改。
1、在客户表中已根据各客户所属的省、市、县设置好其省、市、县。
2、在出库表中已先录入准备筛选客户的省、市、县。
问题：
根据已录入的县份在客户框中列出此县的所有客户，并可根据在客户框中录入的字符进行筛选及填入客户框中。
帮助中原文：
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中的条件，第二句改为：如果已录入县份，打开下拉窗口并列出此县的所有客户。
2、如果上面的修改了，3中的倒数第三句是否要修改，如何修改。
-- 发布时间：2013/3/29 11:35:00
--
根据已录入的县份在客户框中列出此县的所有客户，并可根据在客户框中录入的字符进行筛选及填入客户框中。
以上是在窗口中操作。已分别设置有：省、市、县、客户等录入框。如果省、市、县框中已输入，则下拉列表从客户表中筛选出所属县的所有客户进行选择，然后也可以根据输入的字符进行筛选及填入客户框中。
是否要修改2中的条件，第二句改为：如果已录入县份，打开下拉窗口并列出此县的所有客户。
按原帮助文件中的代码是输入字符时打开下拉列表，我想：如果已录入县份，就可以打开下拉列表，同时可以再输入字符进行筛选。
-- 发布时间：2013/3/29 14:50:00
--
是这样吗？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据表作为列表.table |
-- 发布时间：2013/3/29 15:31:00
--
不是，
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
1、在客户表中已根据各客户所属的省、市、县设置好其省、市、县。
2、在出库表中已先录入准备筛选客户的省、市、县。
问题：
设计一个窗口，根据已录入的县份在客户框中列出此县的所有客户，并可根据在客户框中输入的字符进行筛选及填入客户框中，其他如：手机、电话、区域经理、联系人等也同时输入。
-- 发布时间：2013/3/29 15:57:00
--
帮你做好了：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
其实帮助有现成的例子，建议您看看：
http://www.foxtable.com/help/topics/1458.htm
http://www.foxtable.com/help/topics/1523.htm
-- 发布时间：2013/3/29 16:23:00
--
狐爸，我是根据自定义录入界面之四修改，客户框用下拉列表来进行筛选和模糊筛选。
帮助中原文：
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中的条件，第二句改为：如果已录入县份，打开下拉窗口并列出此县的所有客户。
2、如果上面的修改了，3中的倒数第三句是否要修改，如何修改。
-- 发布时间：2013/3/29 16:33:00
--
呵呵，你的例子和你的问题没有关系啊。
你设计了下拉窗口吗？ 你用的是dropdownbox？ 你写好了你说的代码？
做例子的目的是说明你所遇到的问题，你这样的例子有意义吗？
随随便便做个文件就发上来了，我花了这么多时间帮你写好，结果还牛头不对马嘴，浪费双方时间，郁闷死了。
[此贴子已经被作者于2013-3-29 16:34:08编辑过]
-- 发布时间：2013/3/29 16:54:00
--
要学会提炼问题，根据问题做例子，通常只要你的例子和你的问题吻合，基本上10分钟左右就会得到解决。
你做得越多，你越快让大家明白你的问题，你的问题就能越快得到解决。
[此贴子已经被作者于2013-3-29 16:58:49编辑过]
-- 发布时间：2013/3/30 9:44:00
--
很抱歉，是我没做好，现将新的文件传上。
其他部分已做好，但不能实现先按县份列出本县所有客户，然后再可以输入字符筛选。
1、是否要修改2中的条件，第二句改为：如果已录入县份，打开下拉窗口并列出此县的所有客户。
2、如果上面的修改了，3中的倒数第三句是否要修改，如何修改。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
-- 发布时间：2013/3/30 10:27:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |