关于Rows
通过Table的Rows集合可以获得指定位置的行，例如：
Dim
r
As Row
= Tables("订单").Rows(1)
表示订单表的第二行，行号从0开始编号。
既然是集合，就可以遍历，例如：
Dim
Sum
As Long
For Each r As
Row In
Tables("订单").Rows
Sum =
Sum +
r("数量")
Next
Output.Show(Sum)
利用Rows的Count属性，可以获得Table的总行数。
例如：
Dim
n
As Integer
= Tables("订单").Rows.Count
MessageBox.Show("订单数量:"
& n)
再例如选定整个数量列：
Dim
p
As Integer
With CurrentTable
p =.Cols("数量").Index
.Select(0,
p, .Rows.Count
- 1,
p)
End With
Rows的常用方法有：
| 方法名 |
说明 |
| AddNew |
增加一行或多行，并返回所增加的第一行，同时将输入焦点移到该行上，等同于Table的AddNew方法 |
| InsertNew |
在当前位置插入一行，并返回所插入的行，等同于Table的InsertNew方法 |
| Delete |
删除指定位置的行 |
例如：
Dim
r
As Row
= Tables("订单").Rows.AddNew()
'增加一行
r("日期") =
Date.Today '新增行的日期设为当天
Tables("订单").Rows.AddNew(8)
'一次增加8行
Tables("订单").Rows.Delete(0)
'删除第一行
Tables("订单").Rows.Delete(Tables("订单").Rows.Count
- 1)
'删除最后一行
Output.Show("总行数:" &
Tables("订单").Rows.Count)
'显示总行数
本页地址：http://www.foxtable.com/webhelp/topics/1438.htm