在新增数据前,先检查此数据是否已存在,如果存在就删除,如果不存在执行新增数据的function。
Browser("name:=CIMS").Page("title:=CIMS").Frame("name:=contentFrame","title:=CIMS-ContactList").WebEdit("html
id:=txtFirstName","html tag:=INPUT").Set FirstName
Browser("name:=CIMS").Page("title:=CIMS").Frame("name:=contentFrame","title:=CIMS-ContactList").WebEdit("html
id:=txtEmail","html tag:=INPUT").Set Email
Browser("name:=CIMS").Page("title:=CIMS").Frame("name:=contentFrame","title:=CIMS-ContactList").Image("name:=btnSearch","image
type := Image Button").Click
wait 5
If
Browser("name:=CIMS").Page("title:=CIMS").Frame("name:=contentFrame","title:=CIMS-ContactList").WebTable("html
id:=gvContactList").Exist(5) Then
Set
childobj=Browser("name:=CIMS").Page("title:=CIMS").Frame("name:=contentFrame","title:=CIMS-ContactList").WebTable("html
id:=gvContactList")
If Trim(childobj.GetCellData(2,1))=FirstName Then
Browser("name:=CIMS").Page("title:=CIMS").Frame("name:=contentFrame","title:=CIMS-ContactList").image("html
id:=gvContactList_ctl03_ibtnDelete").Click
Browser("name:=CIMS").Dialog("text:=Message from webpage").WinButton("text:=OK").Click
wait 5
End If
End If
AddNewContact FirstName,MiddleName,LastName,chkIsUser,COA,Initials,Phone,Cellphone,Postcode,Fax,Email,Country,State,City