主题：[求助]窗口中分组框控件如何筛选去掉重复内容？

       查询窗口中的分组框控件做为列表项目取表中的某列数值，如何筛选去掉重复内容？

      这个与表格中的列表项目筛选掉重复内容类似，可是不知如何筛选，放在什么事件中。有谁能做出来，我是一点思路都没有。

      谢谢了！  看附表：

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

点击浏览该文件:管理3.table

     谢谢回复！
     我说的不是表格中的列表项目，而是检索窗口的分组框控件用于取表中的某一列做列表项目。不知套用表格中的项目筛选去重复的代码可以吗？
     检索窗口的分组框控件没有找到PrepareEdit事件。

     我按楼上的代码加入窗体的afterload事件中，打开窗口时出现错误，请高人再给看看吧，谢谢了！
看附图和文件：


此主题相关图片如下：tt截图未命名.bmp

      以上代码试了，不好用，还是出错！

     CZY这个好使！可用！！

      用了CZY的代码后，可以筛选重复项了，可是每次调用窗口时都会出现：未定义变量 Colname ! 的提示，点击确定后，就能正常使用了。是什么原因呢？如何设定呢？

      我的表名：厂家， 字段名：分类，  以下代码写入窗口的 Afterload 事件中，请高人帮助看看。谢谢了！

 e.Form.Controls("ComboBox1").Items.Clear
e.Form.Controls("ComboBox1").Value = Nothing
Dim ls As New List(Of String)
ls = DataTables("厂家").GetUniqueValues("","分类")
e.Form.Controls("ComboBox1").Items.AddRange(ls.ToArray())
Vars("ColName") = "分类"
e.Form.Controls("ComboBox1").Select()

   谢谢回复 ！

    我在“厂家”表中的窗口的Afterload属性中加入如下代码，执行正常。
 
e.Form.Controls("ComboBox1").Items.Clear
e.Form.Controls("ComboBox1").Value = Nothing
Dim ls As New List(Of String)
ls = DataTables("厂家").GetUniqueValues("","分类")
e.Form.Controls("ComboBox1").Items.AddRange(ls.ToArray())
Vars("ColName") = "分类"
e.Form.Controls("ComboBox1").Select()

    可是我在另一表“项目管理”中加入相似的语句，来对另一“申请单位”控件进行筛选操作：

e.Form.Controls("ComboBox1").Items.Clear
e.Form.Controls("ComboBox1").Value = Nothing
Dim ls As New List(Of String)
ls = DataTables("项目管理").GetUniqueValues("","申请单位")
e.Form.Controls("ComboBox1").Items.AddRange(ls.ToArray())
Vars("ColName") = "申请单位"
e.Form.Controls("ComboBox1").Select()

    在打开窗口时，显示出错提示：设置datasorce 属性后，集合无法执行（提示同前楼的附图）
是什么原因，请指出，谢谢了！

     第一个表窗口中的“分类”，是用于录入数据的，所以绑定字段“分类”了。运行一切正常，也能筛选去掉重复。

第二个表按同样方式加入代码后，绑定或是不绑定，打开第二个表时都出现出错信息。但是并不影响第一表窗口效果。

谢谢回复！

       "分类”是窗口中用于录入数据的，所以必须绑定字段“分类”。同时运行也正常。
但第二个表中再用一下，为何就不好使了呢？难道只用在一个控件中为实现这个功能吗？

    终于搞定了，我把“取消ComboBox1控件的绑定”理解为是否绑定字段了，应为取消 ComboBox1控件中对列表项目的绑定。

   再次谢谢了！！！