点刷新时，提示如下内容

.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("产品统计")

写在最后面