- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 列表框的筛选问题--问题有追加，请看10楼！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23796)
-- 发布时间：2012/9/20 11:28:00
-- 列表框的筛选问题--问题有追加，请看10楼！
想通过点选列表框的不同值 来改变或者是筛选已绑定的文本框的内容
望指点！
此主题相关图片如下：未命名.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试用.table |
[此贴子已经被作者于2012-9-20 15:46:10编辑过]
-- 发布时间：2012/9/20 11:43:00
--
设置SelectedIndexChanged事件代码为：
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim wz As Integer = Tables("表A").findrow("简称 = \'" & lst.SelectedValue & "\'",0,False)
If wz >=0 Then
Tables("表A").Position = wz
End If
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目120.table |
-- 发布时间：2012/9/20 11:53:00
--
好用，谢谢狐爸
我怎么想不到这些代码呢
-- 发布时间：2012/9/20 11:55:00
--
如果没有特殊情况，就加下面这句代码也行。
Tables("表A").Position = Tables("表A").FindRow(e.Sender.SelectedItem)
-- 发布时间：2012/9/20 12:02:00
--
呵呵，小林的精简。
-- 发布时间：2012/9/20 12:24:00
--
以下是引用lin_hailun在2012-9-20 11:55:00的发言：
如果没有特殊情况，就加下面这句代码也行。
Tables("表A").Position = Tables("表A").FindRow(e.Sender.SelectedItem)
如果没有特殊情况，就加下面这句代码也行。
Tables("表A").Position = Tables("表A").FindRow(e.Sender.SelectedItem)
真牛！
-- 发布时间：2012/9/20 12:34:00
--
看来老六的客服得到真传了，很给力。
-- 发布时间：2012/9/20 13:09:00
--
呃，林兄是挺厉害的！！
-- 发布时间：2012/9/20 13:56:00
--
我说呢 哪来的高手 原来是客服.
-- 发布时间：2012/9/20 15:55:00
--
我想让列表框在第一行显示“所有”，点击后能有动作，比如显示一条对话框：“这是一条特殊记录”
望高手能继续帮忙！
此主题相关图片如下：未命名.jpg