主题：如何获取删除行的行数

'根据DataTable获取一个System.Data.DataTable类型变量
Dim t As System.Data.DataTable = CurrentTable.DataTable.BaseTable
'获取新增行数
Dim t1 As System.Data.DataTable = t.GetChanges(System.Data.DataRowState.Added )   '新增行
If t1 IsNot Nothing Then Output.Show("新增" & t1.Rows.Count)
'获取修改行数
Dim t2 As System.Data.DataTable = t.GetChanges(System.Data.DataRowState.Modified )   '修改行
If t2 IsNot Nothing Then Output.Show("修改" & t2.Rows.Count)
'获取已删除行数
Dim t3 As System.Data.DataTable = t.GetChanges(System.Data.DataRowState.Deleted )   '已删除行
If t3 IsNot Nothing Then Output.Show("删除" & t3.Rows.Count)

具体获取各列值，参考

Dim t As System.Data.DataTable = Tables("表A").DataTable.BaseTable
Dim tm As System.Data.DataTable = t.GetChanges(System.Data.DataRowState.Deleted)   '删除行

For Each dr As object In tm.Rows
    Dim str As String = ""
    For Each dc As object In tm.Columns
        Dim obj1 = dr(dc, System.Data.DataRowVersion.Original)      
        str &= dc.ColumnName & "='" & obj1 & "',"       
    Next
    msgbox(str.trim(","))
Next