以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何解决“未将对象引用设置到对象的实”  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106465)
--  作者：HJG_HB950207
--  发布时间：2017/9/9 11:38:00
--  如何解决“未将对象引用设置到对象的实”
表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 下面最后一行有合计，非记录行，误点击该行，再点击明细是，提示“未将对象引用设置到对象的实例。”

请教如何修改【明细】按钮代码，点击合计行点明细时，按钮不执行。


 
--  作者：有点蓝
--  发布时间：2017/9/9 12:12:00
--  
If Tables("窗口 1_Table1").Current IsNot Nothing Then
    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
End If
--  作者：HJG_HB950207
--  发布时间：2017/9/9 12:24:00
--  
谢谢老师！