Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
For i As Integer = 0 To DataTables("统计表").DataRows.Count-1
If currenttable(ii,"摘要") = "合计" then
currenttable(i,"金额1") = currenttable.Compute("Sum(金额1)","项目 = '" & currenttable(i,"项目") & "'")
currenttable(i,"金额2") = currenttable.Compute("Sum(金额2)","项目 = '" & currenttable(i,"项目") & "'")
Een If
Next
上面代码缺少点什么??? 后面还跟着有项目 BBB、CCC、DDD....等,其他格式都一样。
ok了