主题：同一表内数据对比问题

关联表内，每一次记录10行数据，怎样设计窗口方便对比本次数据与上次数据的界面？求个好思路

比如对5口井测量深度，分别由10个人来分别测量1次，共10次，那么第一个人测量完5个数据之后，第二个人又测了5个数据，一共测了10组数据，现在想比较这10个人测量的数据是否相同或标记，只比较1和2,2和3,3和4人的数据，以此类推。

在窗口内，点这个按钮之后，可以筛选出AC组的数据，如果AC组的数值列上的数字与对应的AB组的数字不一样，则在AC组的对应单元格上标记颜色，且可以显示出对应AB组的数字是多少。

附件上传不了呢？

可以看到吗

https://www.jianguoyun.com/p/DaVAgF8Q1aOkBhjMlOkD

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

If  Vars("czbcs")>1 Then
    Dim i As Integer=cint(right(vars("czbbm"),1))-1 ''算出最后一位次数并减1,再转回字符格式
    Dim v As String=Vars("czbbm").substring(0,Vars("czbbm").length-2) ''算出上一位的字符串 sureyidtimes
    Dim t As String=""" & V & cstr(i) & """
Dim drs As List(Of DataRow)

    drs=DataTables("压舱水").Select("sureyidtimes='" & Vars("czbbm") & "'")
For Each r As DataRow In drs
        If r IsNot Nothing Then
            Dim dr As DataRow
            dr= DataTables("压舱水").Find("sureyidtimes='" & t & "'and tankno='" & r("tankno") & "'")
            Dim ColNames1() As String =  {"obvd","correct","corrd","tovcubmet","density","weightmetricton"}
            For Each colName As String In ColNames1
                If r("colname")-dr("colname")>0 Then
                    MessageBox.Show("ok")
                End If
            Next
        End If
    Next
End If

早上好老师，你写的这个代码是放到事件里的，这样当我在第二个图中录入第二次的新数据后就会即时的标记和更改数据把？这样会影响我当时的工作，能不能设计成按钮，只要按一下就对比标记，再按一下就回到自己录入的数据，还有我之前的图传颠倒了，实际工作的时候是在第二张图那里。

这个Vars("czbcs")其实是自动获取的“次数”变量，意思是如果是第二次测量下边的程序就肯定需要发生了，不方便再中途修改了。

老师，全局变量可以触发drawcell事件吧？比如全局变量n，假如我对n赋值，如果n大于1，则触发事件改变当前表的标记，马上对n赋值小于1，当前表的标记则消失？