|
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("订单号", Gettype(String), 32)
dtb.AddDef("订单数", Gettype(Integer), 32)
dtb.AddDef("加工数", Gettype(Integer))
dtb.AddDef("结存数", Gettype(Double),"订单数 - 加工数")
dtb.Build()
Dim lst As List(of String) = DataTables("导线订单").GetUniqueValues("","订单号")
Dim dr As DataRow
For Each dd As String In lst
dr = DataTables("统计").AddNew()
dr("订单号") = dd
dr("订单数") = DataTables("导线订单").Compute("Sum(订单数)","订单号 = '" & dd & "'")
dr("加工数") = DataTables("订单加工").Compute("Sum(加工数)","订单号 = '" & dd & "'")
Next
|
加好友 
发短信
Post By：2011/3/22 15:05:00 [只看该作者]
