表A1: 车牌 班次 限重
建窗口 1,窗口中两张表:1:TABLE1 2:TABLE2(表A1副本)
afterload代码:
Dim g As New GroupTableBuilder("限重1", DataTables("表A1"))
g.Groups.AddDef("车牌")
g.Totals.AddDef("班次", AggregateEnum.Count, "出口次数")
g.Totals.AddDef("限重", AggregateEnum.Max, "限重_最大值")
g.Totals.AddDef("限重", AggregateEnum.Min, "限重_最小值")
Tables("窗口 1_Table1").DataSource = g.BuildDataSource()
Tables("窗口 1_Table1").Cols("出口次数").GrandTotal = True
建按钮:【明细】 代码如下:(点击TABLE1每行时,副表显示该行车牌的全部记录)
Tables("窗口 1_Table2").Filter = ""
Dim AA As String = Tables("窗口 1_Table1").Current("车牌")
Dim FILTER As String
Filter = Filter & " 车牌 = '" & AA & " '"
If Filter > "" Then
Tables(""窗口 1_Table2").Filter = Filter
End If
问题:由于TABLE1 下面最后一行有合计,非记录行,误点击该行,再点击明细是,提示“未将对象引用设置到对象的实例。”
请教如何修改【明细】按钮代码,点击合计行点明细时,按钮不执行。