[求助]列表项目如何筛选去掉重复内容？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]列表项目如何筛选去掉重复内容？

共有23992人关注过本帖树形打印复制链接主题：[求助]列表项目如何筛选去掉重复内容？

t_fs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

[求助]列表项目如何筛选去掉重复内容？ 发帖心情

Post By：2008/9/12 17:21:00 [显示全部帖子]

列表项目来自于列

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

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

t_fs

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2008/9/12 19:32:00 [显示全部帖子]

   不明白！

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

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

   狐表太难了，学易表时也没有这么难呀！
   我最初还用过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

t_fs

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2008/9/13 7:22:00 [显示全部帖子]

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

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属性后无法修改项集合

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

t_fs

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2008/9/13 11:28:00 [显示全部帖子]

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

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

下一主题 >> << 上一主题

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