Foxtable(狐表)用户栏目专家坐堂 → 如何解决“未将对象引用设置到对象的实”


  共有2113人关注过本帖树形打印复制链接

主题:如何解决“未将对象引用设置到对象的实”

帅哥哟,离线,有人找我吗?
HJG_HB950207
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:394 积分:6033 威望:0 精华:0 注册:2015/2/17 10:18:00
如何解决“未将对象引用设置到对象的实”  发帖心情 Post By: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 下面最后一行有合计,非记录行,误点击该行,再点击明细是,提示“未将对象引用设置到对象的实例。”

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


 
































 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:394 积分:6033 威望:0 精华:0 注册:2015/2/17 10:18:00
  发帖心情 Post By:2017/9/9 12:24:00 [只看该作者]

谢谢老师!

 回到顶部