主题：显示多个不同状态的行

Dim dt As DataTable = CurrentTable.DataTable
Dim d As String
For Each dr As DataRow In dt.DataRows
    If dr.RowState = DataRowState.Modified Then
        d = d & "[_Identify] = " & dr("_Identify") & " or "
    End If
Next
For Each dr As DataRow In dt.DataRows
    If dr.RowState = DataRowState.Added Then
        d = d & "[_Identify] = " & dr("_Identify") & " or "
    End If
Next
If d IsNot Nothing Then
    d = d.Trim(" ","o","r")
    CurrentTable.Filter = d
End If

上面的代码同时显示新增行和已经修改的行，但代码较长。

显示已经修改的行：
CurrentTable.StateFilter = StateFilterEnum.Modified