Foxtable(狐表)用户栏目专家坐堂 → 求助:该如何统计


  共有3831人关注过本帖树形打印复制链接

主题:求助:该如何统计

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/8/31 19:43:00 [显示全部帖子]

 第一步,所有表都要有一个金额列,统一起来。类型必须不能是字符串,只能是数值。

 第二步,参考下面的代码。第三步,修改代码到你要实现的功能。

Dim name As String = "张三"
Dim dtnames() As String = {"房款", "早餐表", "景点预定", "其他收款"}
Dim sum As Double = 0
For Each dtname As String In dtnames
    Dim dt As DataTable = DataTables(dtname)
    sum += dt.Compute("sum(金额)", "姓名 = '" & name & "'")
Next
msgbox(sum)

 回到顶部