Dim resoult(100,100)
For i=1 to NumRow
For j= 1 to NumColumns
If ( WebData(i-1,j-1)<> data(i-1,j-1)) Then
resoult(i,j) = data(i-1,j-1)
reporter.ReportEvent micFail,"the resoult of the array
compares","the wrong datas are:" & resoult(i,j) & ""
End If
Next
Next
MsgBox resoult(i,j)
For i=1 to NumRow
For j= 1 to NumColumns
If ( WebData(i-1,j-1)<> data(i-1,j-1)) Then
resoult(i,j) = data(i-1,j-1)
reporter.ReportEvent micFail,"the resoult of the array
compares","the wrong datas are:" & resoult(i,j) & ""
End If
Next
Next
MsgBox resoult(i,j)