51Testing软件测试论坛

标题: 数组在report中输出显示的问题 [打印本页]

作者: shengyan 时间: 2005-11-22 15:38
标题: 数组在report中输出显示的问题
写两个循环，以a(i,j)为基准对数组a(i,j),b(m,n)进行比较。
循环中对于b(m,n)不相等于a(i,j)的数据就把b(m,n)附给c(y,z)
------------------------------------------
最后要把c(y,z)中的所有值都在report里显示出来，这该怎么实现呢？

作者: shengyan 时间: 2005-11-22 17:19
顶一下~~~~~~~~~~~~~~~~

作者: kai_top 时间: 2005-11-22 17:30
可以参考一下：

Dim a(2,2),b(2,2),c(2,2)
For ix=0 to 1
For jx=0 to 1
a(ix,jx)=datatable.Value("A",dtGlobalsheet)'//initialize array a and b
b(ix,jx)=datatable.Value("B",dtGlobalsheet)
If a(ix,jx)<>b(ix,jx) Then
c(ix,jx)=b(ix,jx)
reporter.ReportEvent micfail,"c","datas of a<>b are : "&c(ix,jx)
end if
datatable.SetNextRow
Next
Next

复制代码

作者: shengyan 时间: 2005-11-23 12:53
谢谢，这是一个方法
那如果想把c(ix,jx)在一个datatable中显示呢，数据显示在对应的坐标上，该如何操作呢？？？？
可以显示到report中的table里吗？

作者: kai_top 时间: 2005-11-23 13:54
可以啊：在c(ix,jx)=b(ix.jx)后面添加
datatable.value("C",dtglobalsheet)=c(ix,jx)

作者: vivian84 时间: 2005-11-23 14:12

原帖由 shengyan 于 2005-11-22 15:38 发表
写两个循环，以a(i,j)为基准对数组a(i,j),b(m,n)进行比较。
循环中对于b(m,n)不相等于a(i,j)的数据就把b(m,n)附给c(y,z)
------------------------------------------
最后要把c(y,z)中的所有值都在report里显 ...

你的问题是怎么实现的，能不能具体点，把代码贴出来呢？

作者: vivian84 时间: 2005-11-23 16:37
本来结果是正确的，为什么在运行结果里报错呢？是代码问题吗？
If DataTable("Sun", dtLocalSheet) + DataTable("Mon", dtLocalSheet) + DataTable("Tue", dtLocalSheet) + DataTable("Wed", dtLocalSheet) + DataTable("Thu", dtLocalSheet) + DataTable("Fri", dtLocalSheet) + DataTable("Sat", dtLocalSheet) = total_value Then
Reporter.ReportEvent micPass, "total_row_0_2", "The total is correct!."
else
Reporter.ReportEvent micFail, "total_row_0_2", "The total is incorrect!."
End If

作者: vivian84 时间: 2005-11-23 16:38
拜托各位了，急啊！

作者: 海龙 时间: 2005-11-23 22:29
result= DataTable("Sun", dtLocalSheet) + DataTable("Mon", dtLocalSheet) + DataTable("Tue", dtLocalSheet) + DataTable("Wed", dtLocalSheet) + DataTable("Thu", dtLocalSheet) + DataTable("Fri", dtLocalSheet) + DataTable("Sat", dtLocalSheet)

If result = total_value Then
      Reporter.ReportEvent micPass, "total_row_0_2", "The total is correct!."
      else
            Reporter.ReportEvent micFail, "total_row_0_2", "The total is incorrect!."
End If

设置断点，察看result和total_value是否相等，如果相等，看数据类型是否一致，如果数据类型不一致，两者比较的结果是failed。请强制数据转换为相同的数据类型。

作者: vivian84 时间: 2005-11-24 12:39
呵呵！谢谢海龙！我的问题解决了，正如你所说的，是数据类型的问题，然后我进行了强制类型转换，谢谢！谢谢！

作者: vivian84 时间: 2005-11-24 12:42
就是这个样子的：
If CDbl(DataTable("Sun", dtLocalSheet)) + DataTable("Mon", dtLocalSheet) + DataTable("Tue", dtLocalSheet) + DataTable("Wed", dtLocalSheet) + DataTable("Thu", dtLocalSheet) + DataTable("Fri", dtLocalSheet) + DataTable("Sat", dtLocalSheet) = cdbl(DataTable("total_value",dtLocalSheet))Then
Reporter.ReportEvent micPass, "total_row_0_2", "The total is correct!."
else
Reporter.ReportEvent micFail, "total_row_0_2", "The total is incorrect!."
End If

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)