运行结果如图1-222所示。
图1-222
如图1-222所示，我们可以看到，“Row2”这个值被赋到了第一行中。
3．动态获取DataTable中指定列的值
|
GetValue1 = DataTable("Column5","Global") msgbox GetValue1 GetValue2 = DataTable("Column6","Action1") msgbox GetValue2 |
以上两种其实我们已经在之前的实例中都用过了，还有一种更加简单的写法，在上面也已经用过，就是直接输入列的序号，比如引用第一列就直接输入1，依此类推，完全不用去关心“列”具体叫什么名字，代码如下所示：
|
GetValue3 = DataTable(1, "Action1") msgbox GetValue3 |
也正是因为这样，完全可以引申出另一个应用：循环读取Action1的N列，代码如下所示：
|
For i = 1 To N msgbox DataTable(i, "Action1") Next |
如果有两个Action，分别是Action1和Action2，要想使它们在获取的时候保持读取的行数一致，可以使用下面两种方法：
|
'方法1：直接定位Action2的行。 DataTable.GetSheet("Action2").SetCurrentRow(2) '方法2：使用变量传递保持行数一致 CurrentRow = DataTable.GetSheet("Action1").GetCurrentRow DataTable.GetSheet("Action2").SetCurrentRow(CurrentRow) |
4．动态获取DataTable中指定行的值
|
getValueByRow = DataTable.GetSheet("Action1").GetParameter("Column7").ValueByRow(2) msgbox getValueByRow |
5．动态获取DataTable中当前行和设置当前行
|
'1、获取当前行 CurrentRow = DataTable.GetSheet("Action1").GetCurrentRow 'msgbox CurrentRow '2、设置当前行 DataTable.GetSheet("Action2").SetCurrentRow(5) '注意：增加Action2的列数跟行数的计算没有任何关系 DataTable.GetSheet("Action2").AddParameter "Column8","Value4" CurrentRow2 = DataTable.GetSheet("Action2").GetCurrentRow 'msgbox CurrentRow2 |
6．获取得到DataTable总行数的命令
|
AllRowCount = DataTable.GetSheet("Action1").GetRowCount msgbox AllRowCount |
