Dim t1 As Table =Tables("窗口1_table1")
Dim dt1,dt2 As fxDataSource
Dim dts As fxDataSource() ={dt1,dt2}
Dim v1 As String() = {"入库","出库"}
Dim jb As SQLJoinTableBuilder
Dim s1,s2 As String
Dim n1 As Integer
For Each s1 In v1
jb =new SQLJoinTableBuilder("查询",s1 & "表")
jb.C
jb.AddExp("日期", s1 & "日期")
jb.AddExp(s1 & "单号", s1 & "单号")
jb.AddExp(s1 & "数量", "数量")
If n1= v1.length-1 Then jb.AddExp("结余", "0.0")
dts(n1) = jb.BuildDataSource()
n1+=1
Next
s2 = "日期"
dts(0).Combine(s2,dts(1),s2)
t1.StopRedraw
t1.DataSource = dts(0)
t1.sort = s2
For Each r As Row In t1.Rows
If r.Index= 0 Then
r("结余") = r("入库数量")-r("出库数量")
Else
r("结余") =t1(r.Index-1,"结余")+ r("入库数量")-r("出库数量")
End If
Next
Dim g As Subtotalgroup
t1.SubtotalGroups.Clear()
t1.GroupAboveData = False
t1.TreeVisible = False
t1.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "入库数量,出库数量"
g.Caption = "总计"
t1.SubtotalGroups.Add(g)
t1.Subtotal()
n1 = t1.Rows.Count(True) - 1
dim r1 as row = t1.Rows(n1,True)
r1("结余") =r1("入库数量")-r1("出库数量")
t1.ResumeRedraw
[此贴子已经被作者于2013-5-25 6:21:27编辑过]
加好友 
发短信
Post By：2013/5/24 12:59:00 [只看该作者]
此主题相关图片如下：1.png
