|
自己定义一个游标移动函数
Function SQAdatapoolGoto%(dp As Long , dp_rownum As Integer)As Integer
Dim i As Integer
Dim liv_result As Integer
Dim dp_result As Long
'Set the cursor of datapool to the first row
Call SQAdatapoolRewind(dp)
For i=1 to dp_rownum
'Goto the next row and Fetch the all row value
'Call SQADatapoolFetch to retrieve an entire row of values from the datapool.
dp_result = SQADatapoolFetch(dp)
Next i
If dp_result = -3 Then
'Indicate the cursor has reached the end of datapool
SQALogMessage sqaFail, "in the row " & dp_rownum & " doesn't exist datas, getting datas fails", ""
Else
'Denote the row number of record£¬setting cursor succeed
SQALogMessage sqaPass, "in the row " & dp_rownum & " exists datas, getting datas succeeds, ""
End If
End Function |
|