全局表事件代码:
Select Case e.Table.Name
Case "毛坯工序明细_Table1"
Select Case e.Col.name
Case "完成数量_1","完成数量_2"
If e.Row(e.Col) = 1
e.Style = "空白"
End If
End Select
End Select
“刷新”按钮代码:
Dim g As New CrossTableBuilder("统计表1", DataTables("毛坯工序状态表"))
g.HGroups.AddDef("毛坯编码")
g.HGroups.AddDef("生产批次")
g.HGroups.AddDef("批次序号")
g.HGroups.AddDef("成品编码")
g.HGroups.AddDef("成品描述")
g.VGroups.AddDef("加工工序")
g.Totals.AddDef("完成数量", "完成数量")
Tables("毛坯工序明细_Table1").DataSource = g.BuildDataSource()
Dim dt As DataTable = Tables("毛坯工序明细_Table1").DataTable
dt.AddUserStyle("空白", Color.Green, Color.White)
dt.Styles("空白").FontBold = True
dt.GlobalHandler.DrawCell = True