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.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)
dts(0).show("查询")
Dim t1 As Table =Tables("查询")
t1.StopRedraw
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
t1.ResumeRedraw
加好友 
发短信
Post By：2013/5/15 15:06:00 [只看该作者]
