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

二楼答案错误，正确的：

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

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

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