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

1、生成临时统计表，获取到满足条件的行，怎么去获取该表名，并添加到统计表的“表名列”

2、生成出来的统计报，增加了两遍呢。

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("表名") = Tablesname
                nr("审批状态") = r("审批状态")
            End If
        Next
    End If
Next

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

此主题相关图片如下：1111.png

用临时表报错，如果我不用临时表，做了一个刷新按钮，代码一样，刷新一次就会增加一次。

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

对用法和语法确实太欠缺