主题：再请教：如何复制表的当前显示内容到临时表

生成临时表，参考

Dim dtb As New DataTableBuilder("统计")
Dim ary() As String = Tables("表a").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 dtb As New DataTableBuilder("统计")
Dim tbl As Table = Tables("表a")
Dim ary() As String = tbl.GetColVisibleWidth.split("|")
For i As Integer = 0 To ary.Length - 1 Step 2
    Dim dc As DataCol = tbl.cols(ary(i)).DataCol
    msgbox(dc.DataType.tostring.replace("System.", ""))
    Select Case dc.DataType.tostring.replace("System.", "")
        Case "String"
            dtb.AddDef(dc.name, Gettype(String), dc.MaxLength)
        Case "DateTime"
            dtb.AddDef(ary(i), Gettype(Date))
        Case "Int32"
            dtb.AddDef(ary(i), Gettype(Integer))
    End Select
Next
dtb.Build()
MainTable= Tables("统计")