我想实现从11那样的表转换成22那样的表,在转换过程中,如何把11表中的日期转换成22中的分月份呢
此主题相关图片如下:22.jpg
Dim dtb As New DataTableBuilder("损益进度(总体)")
dtb.AddDef("所属单位", Gettype(String), 8)
dtb.AddDef("一级科目", Gettype(String), 10)
dtb.AddDef("日期分月如何表示?", Gettype(Double))
dtb.Build()
此主题相关图片如下:11.jpg
Dim kms() As String = {"利润_本月","营业费用_本月","其他支出_本月"}
For Each dr1 As DataRow In DataTables("利润表附表").DataRows
For Each km As String In kms
Dim dr2 As DataRow = DataTables("损益进度(总体)").AddNew()
dr2("所属单位") = dr1("所属单位")
dr2("一级科目") = km
dr2("日期分月如何表示?") = dr1(km)
Next
Next
MainTable = Tables("损益进度(总体)")