主题：如何得到某行数据在包含分组行情况下的位置？

 比较麻烦，直接说你想做什么吧。要做就参考下面的代码

Dim r As Row = Tables("表A").Rows(7)

Dim fzs As Integer = 0
With Tables("表A")
    For i As Integer = 0 To r.Index 'Count加上参数True
        r = .Rows(i,True) 'Rows也需要加上参数True
        If r.IsGroup Then '如果是分组行
            fzs += 1
        End If
    Next
End With

msgbox(r.Index + fzs)

变通一下啊

Dim r As Row = Tables("表A").Rows(7) '第八行

Dim fzs As Integer = 0
With Tables("表A")
    For i As Integer = 0 To .Rows.count(True)
        Dim nr As Row = .Rows(i,True) 'Rows也需要加上参数True
        If nr.IsGroup Then '如果是分组行
            fzs += 1
        Else
            If r.Index = nr.Index Then
                Exit For
            End If
        End If
    Next
End With

msgbox(r.Index + fzs)