以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]排除合计行的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138401)
--  作者：81538475
--  发布时间：2019/7/30 15:47:00
--  [求助]排除合计行的问题

AfterSelRangeChange 代码

If Forms("个人任务信息").Opened
    Dim str As String
    If Tables("个人任务信息_Table1").Current IsNot Nothing Then
        For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
            str = str & ",\'" & e.Table.Rows(i)("_identify") & "\'"
        Next
        StatusBar.Message2 = (str)
        Tables("个人任务信息_Table2").Filter = " 编号 in (" & str.Trim(",") &")"
    End If
End If

好像是由于里面有合计行，所以有报错

指定的参数已超出有效值的范围。
参数名: Cannot find column \'_identify\'.
--  作者：有点蓝
--  发布时间：2019/7/30 17:24:00
--  
For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
    If e.Table.Rows(i).IsGroup = False
        str = str & ",\'" & e.Table.Rows(i)("_identify") & "\'"
    End If
Next