数组在report中输出显示的问题

shengyan

写两个循环，以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

顶一下~~~~~~~~~~~~~~~~

kai_top

可以参考一下：

1. 
   
2. Dim a(2,2),b(2,2),c(2,2)
   
3. For ix=0 to 1
   
4.     For jx=0 to 1
   
5.             a(ix,jx)=datatable.Value("A",dtGlobalsheet)'//initialize array a and b
   
6.             b(ix,jx)=datatable.Value("B",dtGlobalsheet)
   
7.             If a(ix,jx)<>b(ix,jx) Then
   
8.                 c(ix,jx)=b(ix,jx)
   
9.                reporter.ReportEvent micfail,"c","datas of a<>b are :  "&c(ix,jx)
   
10.             end if
    
11.              datatable.SetNextRow
    
12.             Next
    
13. Next
    

复制代码

shengyan

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

kai_top

可以啊：在c(ix,jx)=b(ix.jx)后面添加
datatable.value("C",dtglobalsheet)=c(ix,jx)

vivian84

原帖由 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

本来结果是正确的，为什么在运行结果里报错呢？是代码问题吗？
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

拜托各位了，急啊！

海龙

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

呵呵！谢谢 海龙！我的问题解决了，正如你所说的，是数据类型的问题，然后我进行了强制类型转换，谢谢！谢谢！

vivian84

就是这个样子的：
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