主题：增加列

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

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

我和你一样，按下葫芦浮起瓢，大红袍不厌其烦，是救火队，是防爆员；水来土掩，兵来将挡，最强大脑

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

可以了，谢谢