主题：[求助]列表项目如何筛选去掉重复内容？

     列表项目来自于列

     列表项目不仅可以自定义，还可以直接用某一列中已经输入的内容作为列表项目。

    我用了这个功能后，发现列表中有太多的重复内容，我如何用“过滤条件”属性设置成去掉重复内容，而仅显示非重复的内容。
这个公式我不会写，请指教！谢谢。

GetUniqueValues

从指定列中，获取不重复的值，以集合的形式返回。

语法：

GetUniqueValues(Filter, Col1, Col, Col3....)

Filter: 条件表达式。
Col1: 指定列名称，可以指定多列。

   不明白！

   用下列程序改了一下，也不行！下列程序好象是用来筛选表内数据行的，不知道用在列属性中来筛选列表项目可行否？能不能把程序写好，我参照一下。谢谢了！  

   列表项目是初级阶段的内容，而下列公式是开发指南中的内容呀！  

   狐表太难了，学易表时也没有这么难呀！
   我最初还用过BASIC语言、VFP6.0等编过几个实用程序的，有一定的编程基础都这么难以入门，对于没有编程经验的初学者，其难度也是可想而知的。

  

示例三

从客户列和产品列提取不重复的值：

'定义数组集合的时候，要在类型后加上括号，表示这是一个数组集合。
Dim Arys As List(Of String())
Arys = DataTables("订单").GetUniqueValues("", "客户","产品")
'注意循环变量是字符型数组，所以类型是String()，而不是String
For Each Ary As String() In Arys
    Output.Show(Ary(0) & "|" & Ary(1))
Next

  

不是太难，是你太急
请参考下面的项目属性中的“MainTableChanged”事件代码：

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

点击浏览该文件:管理项目4_0912.zip

谢谢回复！
     我这个列表项目是取的当前表的当前列中的内容的，即在“项目管理”表中的“责任人”列中录入时，还取“责任人”列的内容做列表项目。与您提供的有点区别，你的是取另一个表的某一列做列表项目。你看看下列公式有何错误：

If Maintable.Name = "项目管理" Then
    Dim Items As String
    Dim lst As List(Of String) = DataTables("项目管理").GetuniqueValues("","责任人")
    For Each Item As String In Lst
        Items = Items & "|" & Item
    Next
   Tables("项目管理").Cols("责任人").ComboList = Items
End If

    结果在打开该表时出现错误提示：设置Datasource属性后无法修改项集合

    是否是以上公式不能用在当前表的当前列中做为列表项目呢？

刚才试了一下，参见“项目管理”表中的PrepareEdit事件，与老六的例子放的位置不同

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

点击浏览该文件:取本表列表项目.table

BASIC语言、VFP6.0毕竟是经典的东西了，易表起码从表面上看是以此为基础的,与你的经验基本合拍.
.net环境下,需要比较大的脑筋转换,你可能还没有“得法”吧，不要轻言“难易”，入门就会发现比实际的VB.net本身容易得很多.
选择狐表不会有错!

              谢谢kylin你的指点！  改正后使用效果很好。

kylin就是这个位置一般人很难找对地方的。

不难找，帮助和示例文件，就是这个问题。

就是，不要急着做，先把帮助从头到尾耐心看个2-3遍，自然就不会很陌生。