对比两个表，并标记出不同 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 对比两个表，并标记出不同

共有3207人关注过本帖树形打印复制链接主题：对比两个表，并标记出不同

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

对比两个表，并标记出不同 发帖心情

Post By：2016/8/9 17:23:00 [只看该作者]

有两个表，一个是“出勤相关”，

此主题相关图片如下：9.png

一个是“考勤机”

此主题相关图片如下：8.png

想让两个表进行对比，对比列是：

此主题相关图片如下：10.png

事先设置好样式，名称为“差异”

想达到的效果是，对同一人，同一日期，的要对比的列进行对比，有差异的，执行“差异”样式，进行标记，

请问老师，如何才能达到如何效果？代码怎么写？

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/8/9 17:27:00 [只看该作者]

差异直接在两个表中都需要显现

[此贴子已经被作者于2016/8/9 17:37:15编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/9 17:33:00 [只看该作者]

实例上传上来。

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/8/10 8:06:00 [只看该作者]

管理者密码：qdrA001

下载信息 [文件大小：下载次数： ]
点击浏览该文件:人事管理 - 副本.zip

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/10 9:02:00 [只看该作者]

出勤相关drawcell

If e.Row.IsNull("日期") = False Then

Dim d As Date = e.Row("日期")

If d.DayOfWeek = 0 OrElse d.DayOfWeek = 6 Then

e.style = "周六日"

End If

If e.Row.IsNull("当事人") = False Then

Dim dr As DataRow = DataTables("考勤机").Find(CExp("姓名='{0}' and 日期 = #{1}#",e.Row("当事人"),e.Row("日期") ))

If dr IsNot Nothing AndAlso dr("一倍半加班H") <> e.Row("一倍半加班H") Then

e.Style = "差异"

End If

考勤机drawcell

If e.Row.IsNull("日期") = False Then

Dim d As Date = e.Row("日期")

If d.DayOfWeek = 0 OrElse d.DayOfWeek = 6 Then

e.style = "周六日"

End If

If e.Row.IsNull("姓名") = False Then

Dim dr As DataRow = DataTables("出勤相关").Find(CExp("当事人='{0}' and 日期 = #{1}#",e.Row("姓名"),e.Row("日期") ))

If dr IsNot Nothing AndAlso dr("一倍半加班H") <> e.Row("一倍半加班H") Then

e.Style = "差异"

End If

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/8/10 9:49:00 [只看该作者]

老师，操作后没有反应，不知问题出在哪里了

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/10 9:51:00 [只看该作者]

你要添加样式

http://www.foxtable.com/webhelp/scr/0656.htm

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/8/10 10:26:00 [只看该作者]

老师，已经提前设置好了“周六日”和“差异”样式了。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/10 10:55:00 [只看该作者]

Dim ary() As String = {"一倍半加班H", "二倍加班H", "三倍加班H"}
If array.Indexof(ary, e.Col.name) >= 0 Then
    If e.Row.IsNull("日期") = False AndAlso e.Row.IsNull("当事人") = False Then
        Dim dr As DataRow = DataTables("考勤机").Find(CExp("姓名='{0}' and 日期 = #{1}#",e.Row("当事人"),e.Row("日期") ))
        If dr IsNot Nothing Then
            If dr(e.Col.name) <> e.Row(e.Col.name) Then
                e.Style = "差异"
            End If
        End If
    End If
End If

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/8/13 12:01:00 [只看该作者]

老师，这个很好用，但只限于两个表都某天某人都有的时才起作用，

如何在如果一个表中没有，一个表中有，在有的那个表中将整行都标注样式呢？

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

总数 17 1 2 下一页

主题：对比两个表，并标记出不同