以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]增加行时报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177578)
--  作者：moseser
--  发布时间：2022/5/27 10:31:00
--  [求助]增加行时报错
提示未将对象引用设置到对象的实例。 

预计总成本表 中增加行时，蓝老师，可以直接用命令增加一行实验一下
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新城 v9 -（终稿）.table
--  作者：有点蓝
--  发布时间：2022/5/27 10:40:00
--  
先看几遍：http://www.foxtable.com/webhelp/topics/2925.htm

正确用法
    Case "工程量_计"

        Dim now_code As String = e.DataRow("归类")
        Dim idx As Integer = Tables("预计总成本").FindRow(e.DataRow)
        Dim t_r As Row = Tables("预计总成本").rows(idx).parent
        If t_r IsNot Nothing Then
            t_r("工程量_数量") = DataTables("预计总成本").Compute("sum(工程量_数量)", "归类 = \'" & now_code & "\'  and 工程量_计 = true " )
        End If

其它地方请自行改正