06-07-2012, 08:02 PM
HI Ramesh,
Try this below code.
Try this below code.
Code:
For r = 1 to Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").RowCount
temp = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").GetCellData(r,3)
If instr(1,temp, trim (Datatable.Value ("ItemCode",DtlocalSheet)) ,1) <> 0 Then
Set Tempeditbox = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").ChildItem(r, 5, "WebElement",0)
Tempeditbox.Click
'Tempeditbox.Set "15"
Tempeditbox.WebEdit("index:=0").Set "15"
End IF
Next
Thanks,
SUpputuri
SUpputuri