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

1楼

845093062 发表于：2011/11/23 16:30:00

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

2楼

涛声依旧5666 发表于：2011/11/23 16:36:00

DataFilter

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

3楼

845093062 发表于：2011/11/23 16:45:00

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

4楼

狐狸爸爸 发表于：2011/11/23 16:58:00

二楼答案错误，正确的：

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

5楼

845093062 发表于：2011/11/23 18:21:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:我的信息库.rar

[此贴子已经被作者于2011-11-23 18:21:26编辑过]

6楼

小猪鑫鑫 发表于：2011/11/23 22:00:00

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

7楼

845093062 发表于：2011/11/23 22:04:00

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

8楼

狐狸爸爸 发表于：2011/11/23 22:06:00

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

9楼

845093062 发表于：2011/11/23 22:08:00

以下是引用狐狸爸爸在2011-11-23 22:06:00的发言：

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

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

10楼

狐狸爸爸 发表于：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

共11 条记录, 每页显示 10 条, 页签: [1] [2]