SQLJoinTableBuilder法:
注:
1.日期列统一列名『日期』;
2.看代码更改需更改的地方
Dim jb1,jb2,jb3 As SQLJoinTableBuilder
Dim jb() As SQLJoinTableBuilder = {jb1,jb2,jb3}
Dim bs() As String = {"期初","入库","出库"}
Dim Ls() As String = {"期初数量","期初金额","入库数量","入库金额","出库数量","出库金额","结存数量","结存金额"}
For n As Integer = 0 To 2
jb(n) = New SQLJoinTableBuilder("查询",bs(n))
jb(n).AddCols("日期","代码","材料名称","摘要")
For i As Integer = 0 To 7
jb(n).AddExp(Ls(i),iif(Ls(i).Contains(bs(n)),Ls(i),bs(n) & "数量" & " = Null"))
Next
Next
jb(0).Union(jb(1),True)
jb(0).Union(jb(2),True)
Dim t As Table = Tables("进销存_Table1")
t.DataSource = jb(0).BuildDataSource()
Dim drs As List(of DataRow) =t.DataTable.Select("","代码,日期")
drs(0)("结存数量") = drs(0)("期初数量")
drs(0)("结存金额") = drs(0)("期初金额")
Dim n1,n2 As Double
For i As Integer = 1 To drs.Count - 1
n1 = IIF( drs(i)("代码") = drs(i-1)("代码"),drs(i-1)("结存数量"),0)
n2 = IIF( drs(i)("代码") = drs(i-1)("代码"),drs(i-1)("结存金额"),0)
drs(i)("结存数量") = drs(i)("期初数量") + n1+ drs(i)("入库数量")- drs(i)("出库数量")
drs(i)("结存金额") = drs(i)("期初金额") + n2+ drs(i)("入库金额")- drs(i)("出库金额")
Next
t.sort ="日期"
t.AutoSizeCols
e.Form.text ="进销存明细"
t.DataTable.SysStyles("EmptyArea").BackColor = Color.White
[此贴子已经被作者于2011-6-23 22:58:53编辑过]
加好友 
发短信
Post By：2011/6/23 20:53:00 [只看该作者]
此主题相关图片如下：20110624-截图 1.png
