主题：求助：临时表数据导入时怎么只有当前行，代码那里错了？

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

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

此主题相关图片如下：微信图片_20181212175527.png


此主题相关图片如下：微信图片_20181212175602.png

谢谢！

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

 

改成

 

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

甜老师：谢谢，！