02-23-2011, 02:06 AM
Hi,
Below code is giving me some errors and am not able to figure it out why the errors are showing up??
The above when saved gives me following errors
--Unexpected Next
--Expected End If
So changed the next and end if accordingly - but of no use.
Can anyone help me please???
Below code is giving me some errors and am not able to figure it out why the errors are showing up??
Code:
Dim i
Set expectedResults = DataTable.GetSheet(dtGlobalSheet)
For i = 1 To 3
Browser("x").Page("y").WebEdit("a").Set DataTable("a", dtGlobalSheet)
Browser("x").Page("y").WebEdit("b").Set DataTable("b", dtGlobalSheet)
Set a = Browser("x").Page("y").WebEdit("a").GetROProperty("Value")
If a = "[Select a] " Then
Browser("x").Page("y").WebEdit("c").Set " "
Else If a = "Value " Then
Browser("x").Page("y").WebEdit("c").Set " "
Else If a = "Value1 " Then
Browser("x").Page("y").WebElement("d").Click
End If
Browser("x").Page("y").WebElement("e").Click
Browser("x").Page("y").WebElement("f").Check CheckPoint("f")
ExpectedResults.SetNextRow
Next
The above when saved gives me following errors
--Unexpected Next
--Expected End If
So changed the next and end if accordingly - but of no use.
Can anyone help me please???