主题：报表的格式转换

不行呀，还是显示不出来数据，只有一个空白表格

我想先对利润的列标题做了一循环，把利润表的列标题自动生成数组nms(),然后再转换为表格式

'Dim cnt As Integer = DataTables("利润表").DataCols.Count - 1
'Dim nms() As String
'For i As Integer = 0 To cnt - 1
    'nms(i) = DataTables("利润表").DataCols(i).name
'Next
For Each nm As String In nms
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    dr2("项目") = nm
    For Each cl As Col In Tables("表B").cols
        If cl.name <> "项目"
            dr2(cl.name) = DataTables("利润表").compute("sum(" & dr2("项目") & ")","发生日期 = #" & cl.name & "# ")
        End If
    Next
Next
Tables("窗口1_Table1").DataSource = DataTables("表B")

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

点击浏览该文件:横表换成纵表1.foxdb

把dtb.AddDef(v, Gettype(Double)) 修改为
dtb.AddDef(Format(" #" & v & "#", "y"), Gettype(Double))

实现列标题按类似2015年10月格式显示，但是不行，该怎么改。

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.11.2.1
错误所在事件：窗口,窗口2,Button1,Click
详细错误信息：
System.Data.DuplicateNameException: 名为“y”的列已属于此 DataTable。
   在 System.Data.DataColumnCollection.RegisterColumnName(String name, DataColumn column, DataTable table)
   在 System.Data.DataColumnCollection.BaseAdd(DataColumn column)
   在 System.Data.DataColumnCollection.AddAt(Int32 index, DataColumn column)
   在 System.Data.DataColumnCollection.Add(String columnName, Type type)
   在 Foxtable.DataTableBuilder.BuildDataSource()
   在 Foxtable.DataTableBuilder.Build(Boolean OnlyDataTable)
   在 UserCode.AfvBVQGIXGNzYp4fn(ControlEventArgs e)

昨天发错了，按我的想法修改有如上提示

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

点击浏览该文件:横表换成纵表1.foxdb