With Tables("订单")
    For i as Integer = .TopPosition To .BottomPosition
        .Rows(i).Locked = True
    Next
End With

With Tables("订单")
    If .TopPosition > -1 Then \'如果选定区域包括数据行
        For i as Integer = .TopPosition To .BottomPosition
            .Rows(i).Locked = true
        Next
    End If
End With

注意我们根据TopPosition是否大于-1，来判断选定区域是否包括分组行，其理由前面已经讲述，就不再重复。

Dim r As Row = Tables("订单").Rows(2)

变量r将等于订单表的第3个数据行，因为行号是从0开始计算的，所以2表示第3个数据行。
如果Table处于汇总模式下，Rows在计算行位置的时候，并不会包括分组行。

Rows的Count属性返回的是数据行的行数，也是排除分组行的，你可以在命令窗口执行下面的代码：

Output.Show(Tables("订单").Rows.Count)

不管订单表是在汇总模式还是普通模式下，上述代码的执行结果都是一样的，因为Count返回的始终是数据行的行数。

因为上述特性，所以下面的代码，不管在何种模式下，都能够正常地运行：

Dim r As Row
With Tables("订单")
    For i As Integer = 0 To .Rows.Count - 1
        r = .Rows(i)
        If r("数量") > 200 And r("日期") >= #1/26/1999# Then
            r("折扣") = 0.13
        End If
    Next
End With

用For Each语句遍历Rows集合时，一样是忽略分组行的，所以上面的代码等效于：

For Each r As Row In Tables("订单").Rows
    If r("数量") > 200 And r("日期") >= #1/26/1999# Then
        r("折扣") = 0.13
    End If
Next

同样，表示选定行位置的Position属性是不考虑分组行的，下面的代码：

Tables("订单").Position = 3

执行后，不管Table是否处于汇总模式下，都能准确地定位到第4个数据行(行号从0开始计算，所以3表示第4个数据行)：

此主题相关图片如下：1045.gif



另两个重要的属性，TopPosition和BottomPosition，分别表示选定区域的第一个数据行位置和最后一个数据行的位置，它们和Position属性一样，在计算行位置的时候，是不考虑分组行的。
例如要锁定用户选定的一行或多行：

With Tables("订单")
    For i as Integer = .TopPosition To .BottomPosition
        .Rows(i).Locked = True
    Next
End With

上述代码，不管是在汇总模式下，还是普通模式下，都能正常地锁定选定的一行或多行，因为代码自动排除了分组行。
但是有一个例外，如果当前选定的是一行，而且这一行恰好是分组行，那么Position、TopPosition、BottomPosition三个属性都返回-1，导致上述代码运行出错。
所以比较“完美”的代码是：

With Tables("订单")
    If .TopPosition > -1 Then \'如果选定区域包括数据行
        For i as Integer = .TopPosition To .BottomPosition
            .Rows(i).Locked = true
        Next
    End If
End With

此外，Table两个用于查找的方法Find和FindRow，其返回的行位置，也是不考虑分组行的；这样我们可以直接用Position定位于查找到的行。
例如在第一列查找“abc”，不区分大小写，不用完全匹配：

Dim r1 As Row = Tables("订单").Rows(2)
Dim r2 As Row = Tables("订单").Rows(2,True)
Output.Show("r1: " & r1("产品"))
Output.Show("r2: " & r2("产品"))

Dim c1 As Integer = Tables("订单").Count
Dim c2 As Integer = Tables("订单").Count(True)
Output.show("c1 = " & c1)
Output.show("c2 = " & c2)

Dim r As Row
With Tables("订单")
    For i As Integer = 0 To .Rows.Count(True) - 1 \'Count加上参数True
        r = .Rows(i,True) \'Rows也需要加上参数True
        If r.IsGroup Then \'如果是分组行
            r("数量") = r("数量") /100
        End If
    Next
End With

With CurrentTable
    Dim r As Integer
    Dim p As Integer = .Cols("日期").Index \'获得日期列的位置
    r = .FindRow("产品 = \'PD02\' And 数量 > 100", 0, False)
    If r > - 1 Then \'如果找到符合条件的行
        .Position = r \'则选择该行
        .Select(.RowSel, p)
    End If
End With

With CurrentTable
    Dim r As Integer
    Dim p As Integer = .Cols("日期").Index \'获得日期列的位置
    r = .FindRow("产品 = \'PD02\' And 数量 > 100", 0, False)
    If r > - 1 Then \'如果找到符合条件的行
        .Select(.Position, p)
    End If
End With

在普通模式下，上面的代码没有问题，因为此时Positon和RowSel的值是相等的，但是在汇总模式下，因为Position的值并不一定等于RowSel，所以无法正常定位。

再来看看选定整列的代码，例如选定数量列，之前介绍的代码是：

With Tables("订单")
    Dim c As Integer= .Cols("数量").Index
    .Select(0, c, .Rows.Count - 1, c)
End With

With Tables("订单")
    Dim c As Integer= .Cols("数量").Index
    .Select(0, c, .Rows.Count(True) - 1, c)
End With

Aggregate方法的参数，同样是考虑分组行的，例如要统计当前表选定区域的累积值:

Dim Sum As Double
With CurrentTable
    Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
OutPut.Show(Sum)