主题：增加列

产品统计表的列来源于产品表中的产品列，在菜单栏查询中点刷新按自动更新列

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品.zip

点刷新时，提示如下内容

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
在对应所需名称或序数的集合中，未找到项目。

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("产品统计") '创建表
For Each pd As String In pds
    With tbl
        .addcolumn(pd & "_借方金额",adoxtype.Double)
    End With
Next
For Each pd As String In pds
    If DataTables("产品统计").DataRows("产品") Is Nothing Then
        Dim dr As DataRow = DataTables("产品统计").addnew()
        dr("产品")=pd
    End If
Next

bd.AddTable(tbl) '增加表
bd.close()
If DataTables.Contains("产品统计") Then
    DataTables.Unload("产品统计")
End If
DataTables.Load("产品统计")

我想再问一下，动态增加的这些列的宽度能否在代码中设定

不可以设定宽度。

6楼的代码你看一下，是什么原因造成，无法实现目的

写在最后面