problem with retieving the data from the datatable

[vijay44]

Hi,

Code:

Set oShell = CreateObject("WScript.Shell") sCurrDir=oShell.CurrentDirectory pCurrpath=Split(sCurrDir,"\") For i=0 to ubound(pCurrpath)-2 sCurrentPath=sCurrentPath & pCurrpath(i) &"\" Next '####import the data File InputXls=sCurrentPath &"\Data\Icentral.xls" Datatable.AddSheet("Icentral") Datatable.ImportSheet ""&InputXls&"","Icentral","Icentral" Public oSheetName oSheetName="Icentral" x=Datatable.GetSheet("Icentral").getrowcount For row=4 to x pszListDataTableNames="N_NullUserLogin,N_InvalidUserLogin,N_InvalidpassLogin,N_NullUserLogin,N_ValidUserLogin" pszListDataTableNames=split(szListDataTableNames,",") For a= 0 to ubound(pszListDataTableNames) If (pszListDataTableNames(a)=datatable.Value("Scenario_name",oSheetName)) then x=Datatable.GetSheet("Icentral").getrowcount datatable.SetCurrentRow(row) eporter.ReportEvent micDone,"------------End of Scenario------------",row End If Next datatable.SetNextRow Next

I am using the above code, even though i am starting tthe iteration from 4, it does not stop the iteration, it goes on execution again iteration 4.
my script should exit as there are only 4 iterations to be run, and its staring from 4th one.

Any help will be really appreciated

Regards;
vijay

[manabh]

Hi,
Please check your driver script setting. It must be "Run on All Iterations" .... (By Default.) .Change it to "Run one iteration".

[vijay44]

[quote='manabh' pid='10017' dateline='1264426649']
Hi,

the settings are fine, i want to exit the for loop specified, as soon as it finishes the iteration.
The no of datatable rows are 4
specified iteration to start from 4
the problem over here is its repeating the same iteration, it should exit the for loop.

Any help will be really appreciated.
Regards;
vijay

[sreekanth chilam]

Hi ,

I assume Run Settings are fine and suggest you to try as given below.

Code:

x=Datatable.GetSheet("Icentral").getrowcount For row=4 to x Datatable.GetSheet("Icentral").SetCurrentRow(row) pszListDataTableNames="N_NullUserLogin,N_InvalidUserLogin,N_InvalidpassLogin,N_NullUserLogin,N_ValidUse​rLogin" pszListDataTableNames=split(szListDataTableNames,",") For a= 0 to ubound(pszListDataTableNames) If (pszListDataTableNames(a)=datatable.Value("Scenario_name",oSheetName)) then x=Datatable.GetSheet("Icentral").getrowcount datatable.SetCurrentRow(row) eporter.ReportEvent micDone,"------------End of Scenario------------",row End If Next Next