UFT，运行报错，类型不匹配

微笑是最美

'2.替换对应的数据定义变量 @@ hightlight id_;_724022_;_script infofile_;_ZIP::ssf7.xml_;_

Dim username,password

'4.定义期望结果和实际结果变量
Dim qiwang,shiji
'1.导入测试用例文件
datatable.ImportSheet "d:\datalin.xls",1,"Action1"
username=datatable("username","Action1")'获取Excel文件对应的数据的测试用例，注获取列名
password=datatable("password","Action1")
Dialog("Login").WinEdit("Agent Name:").Set username @@ hightlight id_;_265284_;_script infofile_;_ZIP::ssf8.xml_;_
Dialog("Login").WinEdit("Password:").Set password @@ hightlight id_;_593826_;_script infofile_;_ZIP::ssf4.xml_;_
Dialog("Login").WinButton("OK").Click @@ hightlight id_;_528236_;_script infofile_;_ZIP::ssf5.xml_;_


'3.判断测试用例有几条
If Dialog("Login").Dialog("Flight Reservations").Exist(3) Then
    qiwang=datatable("qiwangjieguo","Action1")
    shiji=Dialog("Login").Dialog("Flight Reservations").Static("Please enter agent name").GetROProperty("text")'获取对话框提示信息
    If qiwang=shiji Then
        datable("ceshijieguo","Action1")="pass"
    else
        datable("ceshijieguo","Action1")="faill"
        datable("shijijieguo","Action1")=shiji
    End If
    dialog ("Login").Dialog("Flight Reservations").winButton("确定").Click
   
End If
'Window("Flight Reservation").Close