- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 列表框中如何排除重复值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14554)
-- 发布时间：2011/11/23 16:30:00
-- 列表框中如何排除重复值
我的窗口中有个列表框控件（listbox),取值列和显示列都指定了表，显示的时候如何将重复值排除掉。
-- 发布时间：2011/11/23 16:36:00
--
DataFilter
列表项目来自于数据表时，可以用此属性返回或设置过滤条件。
-- 发布时间：2011/11/23 16:45:00
--
老大，我水平一般，能不能讲的细一点，语句如何写，用GetUniqueValues参数吗
-- 发布时间：2011/11/23 16:58:00
--
二楼答案错误，正确的：
http://www.foxtable.com/help/topics/0925.htm
-- 发布时间：2011/11/23 18:21:00
--
还是不行，不知道错在哪里，请狐爸给看下项目。收入项目窗口，左边列表框显示类别列内容，要求不能有重复，右边列表框显示的类别下的项目内容，现在是在项目下增加项目后，因为类别是同样的，左边类别显示有重复。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:我的信息库.rar |
-- 发布时间：2011/11/23 22:00:00
--
楼主大佬：您多少也要给个密码给狐狸爸爸吧，要不怎么查啊
-- 发布时间：2011/11/23 22:04:00
--
没设密码呀，是空的，直接点确定就进了
-- 发布时间：2011/11/23 22:06:00
--
没有看明白你的问题，最好用一个简单的例子来说明你的问题。
-- 发布时间：2011/11/23 22:08:00
--
没有看明白你的问题，最好用一个简单的例子来说明你的问题。
我不是把项目发上去了吗，在五楼的贴子里。
-- 发布时间：2011/11/23 22:22:00
--
收入项目窗口AfterLoad事件的代码是：
Vars("szfl") = "收入"
DataTables("收支项目").AllowEdit = False
Dim lst1 As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim lst2 As WinForm.ListBox = e.Form.Controls("ListBox2")
Dim lb As String = lst1.Selectedvalue
lst1.ComboList = DataTables("收支项目").GetComboListString("类别")
lst2.datafilter = "[类别] = \'"& lb &"\'"
既然要通过代码设置ListBox1的列表项目，就不应该在ListBox的属性中，去掉列表项目的设置，否则上面的代码不会起作用。
还有新增按钮中的代码是：
lst.DisplayMember = "类别" \'设置显示列
lst.ValueMember = "类别" \'设置取值列
lst.DataSource = "收支项目" \'
也应该改为：
lst.ComboList = DataTables("收支项目").GetComboListString("类别")
否则不又回到显示所有行了吗？
编程是严谨的，你的代码很乱，最好重新整理一下。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目12.rar |