QTP操作之DaTa Table

'************************************************************************************************************
'QTP操作之DaTa Table
'***********************************************************************************************************

'************************************************************************************************************
'取值和赋值的方法
'RawValue和Value
'RawValue用法：取值
'DataTable.RawValue ParameterID[,SheetID]
'ParameterID:可以是实际参数名，也可以是Index，从1开始计算
'SheetID：可以是实际Sheet名，也可以是Index，从1开始计算，默认是Global
'取值：实际例子
'***********************************************************************************************************
Dim a,b,c,d
a=DataTable.RawValue("UserName",Global)'完全按照参数填写
b=DataTable.RawValue(1,1)'根据Index填写
c= DataTable.RawValue("UserName")'省略SheetID,使用默认的
d=DataTable.RawValue("UserName",dtLocaSheetl)'使用本action的
a=DataTable.GlobalSheet.GetParameter("UserName")
b=DataTable.GetSheet("Global").GetParameter("UserName")
c=DataTable.LocalSheet.GetParameter("UserName")

'**************************************************************************************************************
'通过上面的例子可以看出，只要指定了SheetID和ParameterID就可以去到响应的值了
'下面看看如何给DataTable赋值
'但是赋值只是在运行过程中，一旦运行完成又会恢复成以前的值
'**************************************************************************************************************
DataTable.LocalSheet.GetParameter("UserName").Value="Set new text"
DataTable.Value(1,1)="test"

'*************************************************************************************************************
'导入导出数据表
'Export和Import支持全部导入导出，ExportSheet和ImportSheet方法只支持单个Sheet的导入导出
'DataTable.ImprotSheet(FileName,SheetSource,SheetDest)
'DataTable.ExportSheet(FileName,DTSheet)
'**************************************************************************************************************
DataTable.Import"Default.xls"
DataTable("UserName",dtGlobalSheet)="Mary"
DataTable("UserName",dtLocalSheet)="Rose"
DataTable(2,2)="MR"
DataTable.Export"D:\Data.xls"
DataTable.ExportSheet"D:\Data1.xls","Action1"

'*****************************************************************************************************************
'Count的方法
'DataTable.GetSheet("Action").GetRowCount 取得Action表中数据的总行数
'DataTable.GetSheet("Action").GetParameterCount 取得Action表中数据的总列数
'实际例子：
'***************************************************************************************************************
j=DataTable.GetSheet("Action1").GetRowCount'行
i=DataTable.GetSheet(1).GetParameterCount'列

'******************************************************************************************************************
'变量Parameter的属性
'*****************************************************************************************************************
print DataTable.GetSheet("Global").GetParameter(1).Name'当前列的名称
print DataTable.GetSheet("Global").GetParameter(1).RawValue'当前行的值
print DataTable.GetSheet("Global").GetParameter(1).ValueByRow(3)'指定行的值
print DataTable.GetSheet("Global").GetParameter(1).Value'当前行的值

'******************************************************************************************************************
'操作Parameters（列）的方法
'DTSheet.AddParameter(ParameterName,Value)
'DTSheet.DeleteParameter(ParameterIDName)
'DTSheet.GetParameter(ParameterID)
'实际例子：
'*****************************************************************************************************************
DataTable.GetSheet(2).AddParameter "New","text"'添加一内容为text列名为New的列
print DataTable.GetSheet(2).GetParameter("New").Value'查看刚添加的列和内容是否成功
DataTable.GetSheet(2).DeleteParameter("New")

'******************************************************************************************************************
'操作Sheet的方法
'AddSheet、DeleteSheet和GetSheet方法
'DataTable.AddSheet(SheetName)
'DataTable.DeletaSheet SheetID
'运行时从数据表中删除任意表单
'DataTable.DeletaSheet “Action1”
'返回运行时数据表的指定工作表
'DataTable.GetSheet(SheetID)
'实际例子：
'*********************************************************************************************************************
Dim m
DataTable.AddSheet("Action3")
Wait(3)
DataTable.DeleteSheet("Action2")

'*********************************************************************************************************************
'SetCurrentRow和GetCurrentRow分别用于设置和获得当前行，默认是对Global进行操作
'DataTable.SetCurrentRow(Rownumber)
'设置当前Action的行数（默认从1开始）
'DataTable.GetCurrentRow
'取得当前行是第几行
'实际例子：
'********************************************************************************************************************
Dim R
R=DataTable.GetSheet("Action1").GetCurrentRow