如何在列表中取得某一列的所有数值然后进行累加计算呢？？

dengyi78

如何在列表中取得某一列的所有数值然后进行累加计算呢？？
如图
我想要取得“担保金额”列下的所有数据然后进行累加，再与“有担保贷款总额”后的数据进行检查。请问如何做呢？
谢谢各位大虾指教！！

[ 本帖最后由 dengyi78 于 2007-12-19 15:07 编辑 ]

jinsen

'******************************************************************
'table:想要计算的WebTable对象。例:table = Browser("CreationTime:=0").Page("Index:=").WebTable("index:=1")
'col:第几列。例:col = 6
'price:要比较的值。例:price = 2.01
'******************************************************************
Function CheckTablePrice(table,col,price)
    Dim tempValue
        For j = 2 to table.RowCount
                        v = table.GetCellData(j,col)
                        If isnumeric(v) Then
                                        tempValue = tempValue + v
                        End If
                        Exit For
        Next
        If price = tempValue Then
                Reporter.ReportEvent micPass, "Table Price Check", " table price is  " & tempValue  & ", check price is " & price
        Else
                Reporter.ReportEvent micFail, "Table Price Check", " table price is  " & tempValue  & ", check price is " & price
        End If
End Function

这个我写完了没有跑过，你可以试试看。

dengyi78

好的。谢谢先！