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