主题：增加列

Dim bd As new adoxbuilder("产品")
bd.open()
Dim pds As List(of String)
pds = DataTables("产品").getvalues("产品")
If DataTables.Contains("产品统计") Then
    bd.DeleteTable("产品统计")
End If
Dim tbl = bd.NewTable("产品统计") '创建表
For Each pd As String In pds
    With tbl
        .addcolumn(pd & "_借方金额",adoxtype.Double)
    End With
Next
bd.AddTable(tbl) '增加表
bd.close()
If DataTables.Contains("产品统计") Then
    DataTables.Unload("产品统计")
End If
DataTables.Load("产品统计")

pds = DataTables("产品").getvalues("产品", "", "_Sortkey") '或者写 _Identify

不可以设定宽度。

写在最后面

Dim bd As new adoxbuilder("产品")
bd.open()
Dim pds As List(of String)
pds = DataTables("产品").getvalues("产品")
If DataTables.Contains("产品统计") Then
    bd.DeleteTable("产品统计")
End If
Dim tbl = bd.NewTable("产品统计") '创建表
With tbl
    .addcolumn("产品",adoxtype.String)
   
    For Each pd As String In pds
        .addcolumn(pd & "_借方金额",adoxtype.Double)
       
    Next
End With
bd.AddTable(tbl) '增加表
bd.close()
If DataTables.Contains("产品统计") Then
    DataTables.Unload("产品统计")
End If
DataTables.Load("产品统计")

For Each pd As String In pds
    Dim dr As DataRow = DataTables("产品统计").addnew()
    dr("产品")=pd
Next