Foxtable(狐表)用户栏目专家坐堂 → 自动算总金额


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

主题:自动算总金额

帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
自动算总金额  发帖心情 Post By:2019/11/23 8:54:00 [只看该作者]

老师,如图,当我查询某行单据编号的时候,下面明细表就会出现该单据编号的明细,请问怎么样让红色框自动增加一行算出以上物料金额的总金额呢

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20191123084940.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:7918 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2019/11/23 9:05:00 [只看该作者]

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

Tables("订单").Cols("数量").GrandTotal = True
Tables
("订单").Cols("金额").GrandTotal = True
Tables
("订单").GrandTotal = True


 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110509 积分:562429 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/23 9:26:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By:2019/11/23 9:28:00 [只看该作者]

好的 谢谢

 回到顶部