以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] compute sum 加条件 帮看看代码～  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2551)
--  作者：mr725
--  发布时间：2009/4/21 19:51:00
--  [求助] compute sum 加条件 帮看看代码～


 

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了

[此贴子已经被作者于2009-4-21 20:22:24编辑过]
--  作者：mr725
--  发布时间：2009/4/21 20:11:00
--  
不好意思，一楼的问题修改后，可以了～ 嘻嘻