在webTable 里,随机取一个数据,然后进行更改

'更改用户数据
GetCell=Browser("***").Page("***").WebTable("adminGroup").RowCount   ' 得出webTable(即显示所有记录的表格)的行数
   ' msgbox "行数是:"&GetCell
    Randomize
    GetCellNum=Int(GetCell * Rnd)
   'msgbox "the getcellnum is :   "&GetCellNum
DataNum=Browser("***").Page("***").WebTable("adminGroup").GetCellData(GetCellNum,1)
reporter.ReportEvent 0, "提示信息:","选择要更改的用户是:  "&DataNum
    '由于在运行时，前面多了个数字，所以用数组的方式分割开，然后存取，并读出
 msgbox "DataNum is :"&DataNum
    DataNumL=split(DataNum," ")
  c=DataNumL(1)
  ' msgbox "数组: " &c
Browser("***").Page("***").Link("innertext:="&c).click  '随机选取一个用户进行修改
'Browser("***").Page("***").Link("li02").Click
If Browser("***").Page("***").WebElement("***").Exist(1)Then
   Browser("***").Page("***").WebButton("***").Click
   reporter.ReportEvent 0,"提示","没有权限更改此用户的信息"
  else
 set ōdesWebList = Descrīption.Create()    '建立对象
 set jdWebList = Descrīption.Create()    '建立对象
 For LoopCounter = 0 to 10
 odesWebList("Name").value = "groupEditForm:_id83_"& LoopCounter& ":_id87"    'Name为共同的属性
 odesWebList("class").value="menu4"
  jdWebList("Name").value ="groupEditForm:_id124_"& LoopCounter&":_id128 "    'Name为共同的属性
 jdWebList("class").value="menu4"
 Browser("***").Page("***").WebList(odesWebList).Select "RU"
  Browser("***").Page("***").WebList(jdWebList).Select "CRUD"
 next
 Browser("***").Page("***").WebEdit("groupEditForm:txtGroupComment").Set "test2"
 Browser("***").Page("***").WebCheckBox("groupEditForm:check3").Set "OFF"
 Browser("***").Page("***").WebCheckBox("groupEditForm:check2").Set "OFF"
 Browser("***").Page("***").WebButton("***").Click
 Browser("***").Page("***").WebButton("***").Click
End If

在把值分割成数组部分,出了很多的错,刚开始的时候,单独运行是没有问题,但是加多几个ACTION后,不知道为什么就会报出:类型不符合的错误,改了很多次都是一样,后来把定义的DataNum(2),改成了DataNum这样就行了.

后来看了一下帮助,原来split的定义是:返回基于 0 的一维数组，其中包含指定数目的子字符串。

呵呵...事实证明,help是要看的.不然的话,就会出一些很奇怪的错啦.