Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义录入界面


  共有7319人关注过本帖树形打印复制链接

主题：自定义录入界面
帅哥哟，离线，有人找我吗？
wqb1102
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00 		自定义录入界面  发帖心情 Post By：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中的倒数第三句是否要修改，如何修改。
 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/3/29 11:17:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
wqb1102
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00 		  发帖心情 Post By：2013/3/29 11:35:00 [只看该作者]

根据已录入的县份在客户框中列出此县的所有客户，并可根据在客户框中录入的字符进行筛选及填入客户框中。
以上是在窗口中操作。已分别设置有：省、市、县、客户等录入框。如果省、市、县框中已输入，则下拉列表从客户表中筛选出所属县的所有客户进行选择，然后也可以根据输入的字符进行筛选及填入客户框中。

是否要修改2中的条件，第二句改为：如果已录入县份，打开下拉窗口并列出此县的所有客户。
按原帮助文件中的代码是输入字符时打开下拉列表，我想：如果已录入县份，就可以打开下拉列表，同时可以再输入字符进行筛选。
 回到顶部
帅哥哟，离线，有人找我吗？
XYT
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00 		  发帖心情 Post By：2013/3/29 14:50:00 [只看该作者]

是这样吗？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:数据表作为列表.table
 回到顶部
帅哥哟，离线，有人找我吗？
wqb1102
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00 		  发帖心情 Post By：2013/3/29 15:31:00 [只看该作者]

不是，
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

1、在客户表中已根据各客户所属的省、市、县设置好其省、市、县。
2、在出库表中已先录入准备筛选客户的省、市、县。
问题：
   设计一个窗口，根据已录入的县份在客户框中列出此县的所有客户，并可根据在客户框中输入的字符进行筛选及填入客户框中，其他如：手机、电话、区域经理、联系人等也同时输入。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/29 15:57:00 [只看该作者]

帮你做好了：

 

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.table

 

其实帮助有现成的例子，建议您看看：

 

http://www.foxtable.com/help/topics/1458.htm

http://www.foxtable.com/help/topics/1523.htm


 
 回到顶部
帅哥哟，离线，有人找我吗？
wqb1102
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00 		  发帖心情 Post By：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中的倒数第三句是否要修改，如何修改。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/29 16:33:00 [只看该作者]

呵呵，你的例子和你的问题没有关系啊。

你设计了下拉窗口吗？ 你用的是dropdownbox？  你写好了你说的代码？

做例子的目的是说明你所遇到的问题，你这样的例子有意义吗？

 

随随便便做个文件就发上来了，我花了这么多时间帮你写好，结果还牛头不对马嘴，浪费双方时间，郁闷死了。

 

 

[此贴子已经被作者于2013-3-29 16:34:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/29 16:54:00 [只看该作者]

要学会提炼问题，根据问题做例子，通常只要你的例子和你的问题吻合，基本上10分钟左右就会得到解决。

你做得越多，你越快让大家明白你的问题，你的问题就能越快得到解决。

[此贴子已经被作者于2013-3-29 16:58:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wqb1102
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00 		  发帖心情 Post By：2013/3/30 9:44:00 [只看该作者]

很抱歉，是我没做好，现将新的文件传上。

其他部分已做好，但不能实现先按县份列出本县所有客户，然后再可以输入字符筛选。
   1、是否要修改2中的条件，第二句改为：如果已录入县份，打开下拉窗口并列出此县的所有客户。
   2、如果上面的修改了，3中的倒数第三句是否要修改，如何修改。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 8 次数据查询