主题：报表的格式转换

excel表格中有一张是数据库中的格式，另一张是我在窗口想要显示的格式，怎么能够实现？

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

点击浏览该文件:表格格式转换.xlsx

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

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

按你的提示做成了利润表新中的格式，在想要的格式表中列出我想的格式，怎么实现

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

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

Sel ect 项目, Sum(iif(发生日期 = '2015-01-01',金额,0)) As 金额2015-01-01, Sum(iif(发生日期 = '2015-01-01',金额,0)) As 金额2015-02-01 From {利润表新} Group by 项目 在查询表中写了这样的代码，可是不能保存

通过以下代码，可以建立一个临时表，表的项目分别为营业收入、营业成本等，标题为2015年01月等，现在的问题是怎么能够原先垂直表的数据正好填写到相应水平表中呢

 

Dim dtb As New DataTableBuilder("表B")

dtb.AddDef("项目", Gettype(String), 30)

For Each v As String In DataTables("利润表").GetValues("发生日期")

    dtb.AddDef(v, Gettype(Double))

Next

dtb.Build()

Dim kms() As String = {"营业收入","营业成本","营业税金及附加","消费税","营业税"}

For Each km As String In kms

 

        Dim dr2 As DataRow = DataTables("表B").AddNew()

        dr2("项目") = km

 Next

 

 

MainTable = Tables("表B")

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

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

怎么定位一个单元格

我想通过以下代码实现功能：1、从利润表提取列组成一个数组，然后形成新表B的行；2、把生成的表B的数据绑定到窗口1的table中。通过红色代码生成表B提示错误，不用红色代码用黄色代码可以生成三行，也可以绑定的窗口中，但是只是一个空表。

Forms("窗口1").open
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("项目", Gettype(String), 30)
For Each v As String In DataTables("利润表").GetV alues("发生日期")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
Dim nms() As String = {"营业收入","营业成本","营业税金及附加"}
'Dim cnt As Integer = DataTables("利润表").DataCols.Count - 1
'Dim nms(cnt-1) 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()
    For Each dr1 As DataRow In DataTables("利润表").DataRows
       
        dr2("项目") = nm
        dr2(dr1("发生日期"))=dr1(nm)
    Next
Next
Tables("窗口1_Table1").DataSource = dtb.Build DataSource()
'Tables("窗口1_Table1").Fill("Sel ect * From {订单}", False)