|
Dim str() As String = {"张三","李四","王五"}
For Each s As String In str
Dim dr As DataRow = DataTables("新表").AddNew()
Dim mon1 As Double = DataTables("原表").Compute("Sum(" & s & ")","日期 >= '2014-01-01' And 日期 <= '2014-01-31'")
Dim mon2 As Double = DataTables("原表").Compute("Sum(" & s & ")","日期 >= '2014-02-01' And 日期 <= '2014-02-28'")
dr("姓名") = s
dr("一月合计") = mon1
dr("二月合计") = mon2
Next
|
加好友 
发短信
Post By：2014/1/28 8:44:00 [显示全部帖子]
