Dim s_date As new Date(2013,1,31)
Dim e_date As new Date(2013,12,31)
Dim g As New CrossTableBuilder("统计表2",DataTables("十监区管理"))
g.HGroups.AddDef("日期",DateGroupEnum.None)
g.HGroups.AddDef("部门")
g.HGroups.AddDef("报表名称")
g.HGroups.AddDef("组别")
g.HGroups.AddDef("管组民警")
g.HGroups.AddDef("模具规格")
g.HGroups.AddDef("统计类型")
g.VGroups.AddDef("项目")
g.VGroups.AddDef("数据统计项目")
g.Totals.AddDef("数值", "数值")
g.Filter = "日期 >= '" & s_date & "' And 日期 <= '" & e_date & "'And 部门='十五监区' And 组别='砂场二组'"
g.Build()
If DataTables("统计表2").datarows.Count>0 Then
Dim 产量_废品 As String '产量的废品
Dim 产量_合格品 As String '产量的合格品
Dim 产量_计划 As String '产品的计划
Dim 造型件数_废品率 As String '造型的件数 废品率
Dim 造型件数_废品 As String '造型件数 废品
Dim 造型件数_计划 As String '造型件数 废品
Dim 造型件数_合格 As String '造型件数 合格品1
Dim 造型箱数_计划 As String '造型箱数 计划1
Dim 造型箱数_完成 As String '造型箱数 完成
Dim 造型箱数_计划完成率 As String '造型箱数
Dim 单重_单重 As String '造型箱数
For Each cl As Col In Tables("统计表2").cols
Select Case cl.Caption
Case "产量(吨)_废品"
产量_废品 =cl.Name
Case "造型件数_计划"
造型件数_计划 =cl.Name
Case "产量(吨)_合格品"
产量_合格品 =cl.Name
Case "产量(吨)_计划"
产量_计划 =cl.Name
Case "造型件数_废品"
造型件数_废品 =cl.Name
Case "造型件数_废品"
造型件数_废品 =cl.Name
Case "造型件数_合格"
造型件数_合格 =cl.Name
Case "造型箱数_计划"
造型箱数_计划 =cl.Name
Case "造型箱数_完成"
造型箱数_完成 =cl.Name
Case "造型箱数_计划完成率"
造型箱数_计划完成率 =cl.Name
Case "单重_单重"
单重_单重 =cl.Name
End Select
Next
DataTables("统计表2").DataCols(产量_废品).Expression = "(" & 造型件数_废品 & "*" & 单重_单重 & ")/1000"
Output.Show(1)
DataTables("统计表2").DataCols(产量_合格品).Expression ="(" & 造型件数_合格 & "*" & 单重_单重 & ")/1000"
Output.Show(5)
DataTables("统计表2").DataCols(产量_计划).Expression ="(" & 造型件数_计划 & "*" & 单重_单重 & ")/1000"
Output.Show(6)
DataTables("统计表2").DataCols(造型件数_废品率).Expression = "(" & 造型件数_废品 & "/" & "(IsNull([" & 造型件数_合格 & "],0)" & "+" & "(IsNull([" & 造型件数_废品 & "],0)" & "))*100"
DataTables("统计表2").DataCols(造型箱数_计划完成率).Expression ="(" & 造型箱数_完成 & "/" & 造型箱数_计划 & ")*100"
Output.Show(8)
' Output.Show("(" & 造型件数_废品 & "/" & "(IsNull([" & 造型件数_合格 & "],0)" & "+" & "(IsNull([" & 造型件数_废品 & "],0)" & "))*100")
End If
红色字部分 一直提示 值不能为空 参数为:key
此主题相关图片如下：tt截图未命名.bmp
加好友 
发短信
Post By：2013/11/1 14:40:00 [只看该作者]
