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 = {"营业收入","营业成本","营业税金及附加"}
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 = dtb.Build DataSource()