主题：如何筛选出刚修改过的单元格

说明书内容：修改订单数据后，按下菜单中的标记按钮，即可以红底白字标出所有已经修改过的单元格：

已知某个表的列 有 ：  客户 单价 折扣

每一列中 都有记录发生了修改

1、筛选出 客户列中有变化的记录

2、筛选出无论哪列有变化及作为有变化的记录

我想，既然系统能测出哪些个单元格是刚被修改ud，就一定能筛选出来。请教 如何书写代码

MarkModifedCell = true
Tables("表A").Refresh

我要分两种，一种是针对某一列中有变化的，二是针对所有列 有变化 的，帮助文档中找不到 这个代码的用法，请问怎么写？

drawcell事件

 

If e.Col.name = "第二列" Then
    If e.Row(e.Col.name) <> e.Row.DataRow.OriginalValue(e.Col.name) Then
        e.Table.DataTable.AddUserStyle("修改了", Color.Red, Color.black)
        e.style = "修改了"
    End If
End If

大红袍老师，可能我表达的意思错了，我要的是筛选，不是标志颜色

参考

 

Dim idx As String = "-1,"
For Each dr As DataRow In DataTables("表A").datarows
    If dr("第二列") <> dr.OriginalValue("第二列") Then
        idx &= dr("_Identify") & ","
    End If
Next

Tables("表A").Filter = "_Identify in (" & idx.trim(",") & ")"

上面是能筛选出[第二列]中有数据变动的记录

Dim idx As String = "-1,"
For Each dr As DataRow In DataTables("表A").datarows
    For Each dc As DataCol In DataTables("表A").DataCols
        If dr(dc.Name) <> dr.OriginalValue(dc.Name) Then
            idx &= dr("_Identify") & ","
            Exit For
        End If
    Next
Next

Tables("表A").Filter = "_Identify in (" & idx.trim(",") & ")"

Exit For  表示不再遍列该行中后面其他的列了，是不是？

是的，一行，只要有一列修改了，其余的就没必要继续循环。