在窗口中的表里查询完导出到临时统计表中，只导出了当前行，请教代码错误？

Dim dtb As New DataTableBuilder("临时统计表")
Dim ary() As String = Tables("统计_Table1").GetColVisibleWidth.split("|")
For i As Integer = 0 To ary.Length - 1 Step 2
    dtb.AddDef(ary(i), Gettype(String))
Next
dtb.Build()
MainTable= Tables("临时统计表")                  \'生成临时统计表

Dim nma1,nmb1 As new List(Of String )    \'集合
For Each c As Col In Tables("统计_Table1").cols   \'获得当前显示的列
    If c.Visible Then            
        nma1.add(c.Name)
        nmb1.add(c.Name)
    End If
Next
Dim nma  =nma1 .ToArray()   \'数组
Dim nmb  =nmb1 .ToArray()
\'复制所有行到B中
With Tables ("统计_Table1")
    For i As Integer = 0 To .rows. Count-1      \'所有行
        CurrentTable.Position = i
        Dim dr As DataRow = DataTables("临时统计表").AddNew
        For j As Integer = 0 To nma. Length - 1
            dr(nmb(j)) = .current (nma( j))
        Next
    Next
End With

dr(nmb(j)) = .current (nma( j))

改成

dr(nmb(j)) = .Rows(i)(nma(j))

甜老师：谢谢，！