主题：获取行时同时获取表名

Dim dt As New  DataTableBuilder("统计")
dt.AddDef("序号", Gettype(String), 32)
dt.AddDef("表名", Gettype(String), 32)
dt.AddDef("审批状态", Gettype(String), 32)
dt.Build()
For Each t As DataTable In DataTables
    If t.DataCols.Contains("审批状态") Then
        For Each r As DataRow In t.dataRows
            If r.IsNull("审批状态") = False Then
                Dim nr As DataRow = DataTables("统计") .AddNew
                nr("表名") = t.name
                nr("审批状态") = r("审批状态")
            End If
        Next
    End If
Next

If t.name <> "统计" AndAlso t.DataCols.Contains("审批状态") Then