以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  listbox查询  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119266)
--  作者：桃花笑
--  发布时间：2018/5/21 20:16:00
--  listbox查询


有三个listbox,分别是数据库的产品分类
当listbox1显示大类的时候，选中大类，能在listbox2中查出该大类所有的中类，当选中中类的时候，能查询出所有该中类的小类(不能显示重复值)
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2018/5/21 20:29:00
--  
ListBox1，SelectedIndexChanged事件

Dim lsb As WinForm.ListBox = e.Form.Controls("ListBox2")
lsb.ComboList = DataTables("表A").GetComboListString("中类","大类=\'" & e.Sender.Items(e.Sender.SelectedIndex) &  "\'")
--  作者：桃花笑
--  发布时间：2018/5/23 9:16:00
--  listbox分页
 如果有一个listbox，有100条数据，想将50条数据放在一个listbox1，宁外50条数据放在宁外的listbox2中，
这个有办法么
--  作者：有点甜
--  发布时间：2018/5/23 10:11:00
--  
以下是引用桃花笑在2018/5/23 9:16:00的发言：
 如果有一个listbox，有100条数据，想将50条数据放在一个listbox1，宁外50条数据放在宁外的listbox2中，
这个有办法么


Dim ls = DataTables("表A").GetValues("中类")
Dim lsb As WinForm.ListBox = e.Form.Controls("ListBox1")
For i As Integer = 0 To ls.count / 2 - 1
    lsb.Items.Add(ls(i))
Next
Dim lsb2 As WinForm.ListBox = e.Form.Controls("ListBox2")
For i As Integer = ls.count / 2 To ls.count-1
    lsb2.Items.Add(ls(i))
Next