主题：增加列

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

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

点击浏览该文件:产品.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
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楼的代码你看一下，是什么原因造成，无法实现目的

是写在最后面吗？我把红色代码写在代码的最后面了，但是还是不行。有以下提示，这是什么原因？

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：菜单,刷新表格,Click
详细错误信息：
从字符串“户名”到类型“Integer”的转换无效。
输入字符串的格式不正确。

可以了，谢谢