列表项目动态增加(已上传示例) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 列表项目动态增加(已上传示例)

共有24398人关注过本帖树形打印复制链接主题：列表项目动态增加(已上传示例)

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2009/4/5 11:09:00 [显示全部帖子]

项目属性currentchanged事件代码：
If Maintable.Name = "B表" Then
    Dim Items As String
    Dim lst As List(Of String) = DataTables("A表").GetuniqueValues("","责任人列")
    For Each Item As String In Lst
        Items = Items & "|" & Item
    Next
   Tables("B表").Cols("责任人列").ComboList = Items
End If

以上是B表引用A表，也可以引用本表本列。

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2009/4/6 9:18:00 [显示全部帖子]

很好!不存在10楼所说

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2009/4/6 15:13:00 [显示全部帖子]

你测试一下，这个代码本身就排除了重复值

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2009/4/6 15:14:00 [显示全部帖子]

以下是引用擎天柱在2009-4-6 14:55:00的发言：

尽管程版主如是说，我还是倾向于我先前的意见。
我用笨办法将5楼的代码修改了一下，主要我是想让"表B""责任人"列COMBOLIST取自于"表A""责任人"列，如果在"表B""责任人"列输入一个COMBOLIST中不存在的数据后，则COMBOLIST中自动添加该条数据。现在有个问题：怎样排除重复数据？

If Maintable.Name = "表B" Then
    Dim Items1, Items2 As String
    Dim lst1 As List(Of String) = DataTables("表A").GetuniqueValues("","责任人")
    Dim lst2 As List(Of String) = DataTables("表B").GetuniqueValues("","责任人")
    For Each Item As String In Lst1
        Items1 = Item1 & "|" & Item
    Next
    For Each Item As String In Lst2
        Items2 = Items2 & "|" & Item
    Next

   Tables("表B").Cols("责任人").ComboList = Items1 & Items2
End If

你测试一下，这个代码本身就排除了重复值