主题：报表的格式转换

Forms("窗口1").open
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 nms() As String = {"营业收入","营业成本","营业税金及附加"}
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")

呃，你发的例子，就可以的啊。

你要把什么字符转成那样的格式啊，不是随便什么都可以转的啊。