以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动算总金额  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143397)
--  作者：巷弄太过弯曲
--  发布时间：2019/11/23 8:54:00
--  自动算总金额
老师，如图，当我查询某行单据编号的时候，下面明细表就会出现该单据编号的明细，请问怎么样让红色框自动增加一行算出以上物料金额的总金额呢

图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20191123084940.png
图片点击可在新窗口打开查看
--  作者：zoyong
--  发布时间：2019/11/23 9:05:00
--  

例如对于订单表，希望在排序和筛选后，能够自动显示合计模式，在AfterSort和AfterFilter两个事件中同时加上下面的代码即可：

Tables("订单").Cols("数量").GrandTotal = True
Tables("订单").Cols("金额").GrandTotal = True
Tables("订单").GrandTotal = True
--  作者：巷弄太过弯曲
--  发布时间：2019/11/23 9:14:00
--  
老师，表我是通过SQL语句生产的，请问该怎么写

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.ConnectionNa me = "ce s hi"
cmd.CommandText = "SE LE CT  DISTINCT top 2000 a.FDate as 日期,c.FName as 领料部门,a.FBillNo as 单据编号,e.fname as 发料仓库,a.FCheckDate as 审核日期 From " & _
" ICStockBill a left join ICStockBillEntry b on a.FInterID = b.FInterID left join t_Department c on a.FDeptID = c.FItemID " & _ 
" left join t_Stock e on b.FSCStockID = e.FItemID left join t_ICItem d on b.FItemID = d.FItemID left join t_MeasureUnit f on b.FUnitID = f.FMeasureUnitID left join t_Emp g on a.FSManagerID = g.FItemID " & _
" left join t_User h on a.FBillerID = h.FUserID left join t_User i on a.FCheckerID = i.FUserID " & Filter
dt = cmd.ExecuteReader()
Tables("生产领料单查询_Table1").DataSource = dt
--  作者：有点蓝
--  发布时间：2019/11/23 9:26:00
--  
用法完全一样：http://www.foxtable.com/webhelp/topics/2750.htm
--  作者：巷弄太过弯曲
--  发布时间：2019/11/23 9:28:00
--  
好的 谢谢