If e.Col.Name = "Zhdj"
Dim sql As String = "Select RcjBm as 人材机编码,Mc as 名称,Rcjhl As 含量,Rcjhj as 合计 FROM (SELECT Rcjid,Rcjhl,Rcjhj,fK From {QdxrcjhlMx} where Fk = '" & Tables("Qdmx").Current("Xh") & "') as a INNER JOIN {RcjhzMx} as b ON a.RcjId = b.RcjId"
Dim b As New GroupTableBuilder("统计表1",sql)
b.Groups.AddDef("人材机编码")
b.Groups.AddDef("名称")
b.Groups.AddDef("含量")
b.Totals.AddDef("合计")
'b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
End If
加好友 
发短信
Post By：2014/8/11 11:19:00 [显示全部帖子]
