主题：报表的格式转换

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

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

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

se lect 销售收入 as 金额, 发生日期 from 表

union all

sele ct 销售成本 as 金额, 发生日期 from 表

union all

sele ct 销售费用 as 金额, 发生日期 from 表

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

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

参考3楼

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

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

点击浏览该文件:横表换成纵表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 项目 在查询表中写了这样的代码，可是不能保存

sql 实现不了。只能用代码转换。或者使用Execl的数据透视表来做

通过以下代码，可以建立一个临时表，表的项目分别为营业收入、营业成本等，标题为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")