|
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 new List(Of String)
For Each dc As DataCol In DataTables("利润表").DataCols
If dc.IsNumeric Then
nms.Add(dc.Name)
End If
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")
|
加好友 
发短信
Post By：2015/11/2 16:42:00 [只看该作者]
