主题：列表框中如何排除重复值

我的窗口中有个列表框控件（listbox),取值列和显示列都指定了表，显示的时候如何将重复值排除掉。

DataFilter

列表项目来自于数据表时，可以用此属性返回或设置过滤条件。

老大，我水平一般，能不能讲的细一点，语句如何写，用GetUniqueValues参数吗

二楼答案错误，正确的：

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

 

还是不行，不知道错在哪里，请狐爸给看下项目。收入项目窗口，左边列表框显示类别列内容，要求不能有重复，右边列表框显示的类别下的项目内容，现在是在项目下增加项目后，因为类别是同样的，左边类别显示有重复。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的信息库.rar

楼主大佬：您多少也要给个密码给狐狸爸爸吧，要不怎么查啊

没设密码呀，是空的，直接点确定就进了

没有看明白你的问题，最好用一个简单的例子来说明你的问题。

我不是把项目发上去了吗，在五楼的贴子里。

收入项目窗口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