Dim sql As String = "sele ct a.定额编码 as 定额编码, 合同名称, a.数量 as 数量, 合计, 类型, b.* from (sel ect 定额编码, 合同名称, 进货数量 as 数量, 进货合计 as 合计, '进货' as 类型 from {采购进货} union all s elect 定额编码, 合同名称, 销售数量, 销售合计, '销售' from {销售明细} union all sel ect 定额编码, 合同名称, 0, 0, '进货' from {销售明细} union all sele ct 定额编码, 合同名称, 0, 0, '销售' from {采购进货}) as a left join {材料} as b on a.定额编码 = b.定额编码"
Dim g As New CrossTableBuilder("统计表1",sql, "服务器")
g.HGroups.AddDef("定额编码")
g.HGroups.AddDef("材料名称")
g.HGroups.AddDef("单位")
g.VGroups.AddDef("合同名称")
g.VGroups.AddDef("类型")
g.Totals.AddDef("数量","数量") '对数量进行统计
g.Totals.AddDef("合计","金额") '对金额进行统计
Tables("库存数量表_Table1").DataSource = g.BuildDataSource
Dim t As Table = Tables("库存数量表_Table1")
Dim pht As String = ""
For i As Integer = t.Cols.Count - 1 To 0 Step -1
If t.Cols(i).caption Like "*_销售_*" OrElse t.Cols(i).caption Like "*_进货_*" Then
Dim ht As String = t.Cols(i).caption.Split("_")(0)
If pht = Nothing OrElse ht <> pht Then
t.DataTable.DataCols.Add(ht & "_库存_数量",Gettype(Integer), "isnull(" & t.cols(i-3).name & ",0) - isnull(" & t.Cols(i-1).name & ",0)")
t.DataTable.DataCols.Add(ht & "_库存_金额",Gettype(Double), "isnull(" & t.cols(i-2).name & ",0) - isnull(" & t.Cols(i).name & ",0)")
t.Cols(ht & "_库存_金额").Move(i+1)
t.Cols(ht & "_库存_数量").Move(i+1)
pht = ht
End If
End If
Next
上面代码看不懂：请教一下老师：
1、sele ct a.定额编码 as 定额编码 ；这个：a. 是什么意思？
2、union all sel ect 定额编码, 合同名称, 0, 0, ；这个0, 0, 是什么意思？
3、Dim g As New CrossTableBuilder("统计表1",sql, "服务器") 这个sql是怎么意思？
[此贴子已经被作者于2015/11/29 19:28:04编辑过]
加好友 
发短信
Post By：2015/11/27 12:24:00 [只看该作者]
此主题相关图片如下：11.jpg
