For the below written code , i want to be stop the loop
(ex:10 times), but it is focusing to first line of the code
& generating error.
vbwindow("vbname:=frmMain").Type micAltDwn + "6" + "2" + "D"
+micAltUp 'wiil open the particular window in application
vbwindow("vbname:=frmDeduction").vbbutton("vbname:=cmdNew").Click
DataTable.ImportSheet"F:\QTP VBScript\Form
26-1.xls","Deduction",Global
RowCount = DataTable.GetSheet("Global").GetRowCount
i=RowCount
For j =1 to i
'vbwindow("vbname:=frmDeduction").WinObject("nativeclass:=DataComboWndClass","abs_y:=
187").Type DataTable("Name", dtGlobalSheet)
vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:=
187").Type DataTable("Name", dtGlobalSheet)
vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:=
187").Type micF4
vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:=
187").Type micTab
vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:=
216").Type micF4
vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:=
216").Type DataTable("Section", dtGlobalSheet)
vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:=
216").Type micTab
vbwindow("vbname:=frmDeduction").VbEdit("vbname:=txtAmtOfPay").Set
DataTable("Amount_of_Payment", dtGlobalSheet)
vbwindow("vbname:=frmDeduction").VbEdit("vbname:=txtAmtPaidDate").Set
DataTable("Amount_PaidCredited_Date", dtGlobalSheet)
vbwindow("vbname:=frmDeduction").VbEdit("vbname:=txtAmtPaidDate").Type
micTab
vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:=
316").Type micF4
vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:=
316").Type DataTable("Deduction_is", dtGlobalSheet)
vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:=
316").Type micTab
vbwindow("vbname:=frmDeduction").VbButton("vbname:=cmdSave").Click
DataTable.SetNextRow
Next
vbwindow("vbname:=frmDeduction").VbButton("vbname:=cmdClose").Click
- 1 Answers
- 3156 Views
- I also Faced
- E-Mail Answers
Answer / Mitul Saxena
To stop a loop in VBScript, you can use the Exit For statement. However, it seems that your code has an issue because the script focuses on the first line instead of executing the entire loop. Here's a modified version of your code with an exit statement after executing the desired number of iterations (10 times in this example):
```vbnet
For i = 1 To 10 ' Modified to stop after 10 iterations
' Your existing loop code here
If i = 10 Then Exit For ' Stop the loop once we reach 10 iterations
Next
' Rest of your code here
```
| Is This Answer Correct ? | 0 Yes | 0 No |
what is the difference between DATA TABLE and DATA SET?
How to convert manual test cases to automated testcases
How can we disable popup blocker?
Tell me the QTP Advantages and Disadvatages ?
Login to flight app, in window flight reservation set the date field and select flyfrom as Frankfurt and verify whether flyto list box has the item FrankFurt, log the results.
I learned all the objects of my application in object repository thru English Language. now i want to use same object repository for other languages(French,Dutuch and Chinese)
How many types of parameters are available in quicktest professional (qtp)?
What is the difference between QTP 8.2 object repository and QTP 9.2 object repository Any body have an please give Answer Mail id: nagireddy.sn@gmail.com
how we connect oracle or sql data server database to qtp.
Plz give the vb script for the following scenerio I have faced one issues while doing test in QTP. I have described the scenario below. 1. I have to test web application.In that i want to select from the drop down values in the application. 2. Suppose Drop down has 5 value "A,B,C,D,E".I would like to give value from data table of QTP. 3. For every iliteration it should select A,then B and so on
how u will evaluate the tool for test automation?
how to invoke the web application through script in qtp
WinRunner 
