Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合计数字如何添加


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

主题：合计数字如何添加
帅哥哟，离线，有人找我吗？
utcxray
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：5053 威望：0 精华：0 注册：2011/10/22 13:37:00 		合计数字如何添加  发帖心情 Post By：2014/11/18 13:24:00 [只看该作者]

窗口中SQLQUERY表，
select语句：select 供应商,型号,数量,单价,数量*单价 as 金额,账期,付款,负责人,项目名称,采购日期 from {采购明细} where 付款 IS NULL order by 采购日期

窗口中筛选树代码Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then
    Dim d1 As Date
    Dim d2 As Date
    Dim Year As Integer = e.Node.DataRow("年")
    Dim Month As Integer = e.Node.DataRow("月")
    Dim Productor As String = e.Node.DataRow("供应商")
    Select Case e.Node.Level
          Case 0
                        Filter = "供应商 = '" & Productor & "'"
                  Case 1
                       d1 = New Date(Year,1,1) '取得该年的第一天
                      d2 = new Date(Year,12,31) '取得该年的最后一天
                     Filter = "账期 >= #" & d1 & "# And 账期 <= #" & d2 & "# And 供应商 = '" & Productor & "'"
         Case 2
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
           Filter = "账期 >= #" & d1 & "# And 账期 <= #" & d2 & "# And 供应商 = '" & Productor & "'"

End If
Tables("对账单_table1").Filter = Filter
问题：如何在底部加入“合计”的数字
图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/11/18 14:16:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/18 14:17:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
utcxray
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：5053 威望：0 精华：0 注册：2011/10/22 13:37:00 		  发帖心情 Post By：2014/11/18 14:33:00 [只看该作者]

谢谢！
问题已解决
With Tables("对账单_Table1")
    .Cols("数量").GrandTotal = True '指定要合计的列
    .Cols("金额").GrandTotal = True
    .GrandTotal = True '显示合计模式
End With
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03809 秒, 4 次数据查询