请问表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问表的问题

共有5662人关注过本帖树形打印复制链接主题：请问表的问题

hbaijia

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

加好友

发短信

等级：童狐帖子：205 积分：1404 威望：0 精华：0 注册：2013/4/16 16:20:00

请问表的问题 发帖心情

Post By：2013/5/27 14:11:00 [只看该作者]

我有二个表，其中编号列相同，第一个表的总数大于第二个表的总数，用什么方法把第二个表中没有的在第一张表中用颜色或标记表示出来，可以做到吗？我看了帮助大多数是把有的找出来，好象没有管没有的。

hbaijia

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

加好友

发短信

等级：童狐帖子：205 积分：1404 威望：0 精华：0 注册：2013/4/16 16:20:00

Post By：2013/5/27 14:37:00 [只看该作者]

项一下

有解吗

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/5/27 15:07:00 [只看该作者]

可以做到.利用http://www.foxtable.com/help/topics/0656.htm
你既然知道 "我看了帮助大多数是把有的找出来"
把找出来的对比一下.如果不存在就标记变色

XYT

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

加好友

发短信

等级：六尾狐帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00

Post By：2013/5/27 15:11:00 [只看该作者]

可以，表1用FIND查找每一个表2的编号。

hbaijia

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

加好友

发短信

等级：童狐帖子：205 积分：1404 威望：0 精华：0 注册：2013/4/16 16:20:00

Post By：2013/5/27 17:07:00 [只看该作者]

If e.Col.Name = "编号" Then
    If e.Row.IsNull("编号") = False Then
        Dim nms As List(of String) = DataTables("登记表").GetUniqueValues("编号 = '","编号")

        For Each nm As String In nms
            If nm > "" Then
                Dim dr As DataRow = DataTables("点表").Find("编号 = '" & nm & "'")
                If dr IsNot Nothing Then
                    Dim dr1 As DataRow = DataTables("登记表").Find("编号 <> '" & dr("编号") & "'")
                    If dr1("编号").IsNull = False Then

                    e.Style = "样式1"
                    End If
                End If
            End If
        Next

    End If
End If