合计数字如何添加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口中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

主题：合计数字如何添加