主题：[求助]如何遍历选中行

如题

For each r as row ......

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

            r("选中")= True     '这行的正确写法是？
            '.Rows(i).Locked = true
        Next
    End If
End With

谢谢大家，LJH29206的是我要的正解。