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

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(",") & ")"

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

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

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