在窗口中的表里查询完导出到临时统计表中,只导出了当前行,请教代码错误?
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
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:微信图片_20181212175527.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-12/2018121217551862162.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:微信图片_20181212175602.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-12/2018121217551854705.png)
谢谢!