Foxtable(狐表)用户栏目专家坐堂 → 版主请进,请教同一个出库单号,不同合同号的问题


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

主题:版主请进,请教同一个出库单号,不同合同号的问题

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


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

 你这个,直接分组统计就行了。

 

http://www.foxtable.com/help/topics/0158.htm

 

 

[此贴子已经被作者于2014-11-21 14:17:21编辑过]

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


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

 你可以拷贝分组统计的代码,放到按钮里面,就行啊。

 

 具体问题,如果不会做,你就上传一个对应的例子上来。


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


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

 1、设计好窗口的属性->所有者表

 

 2、Click事件,代码这样写

 

Dim g As New GroupTableBuilder("统计表1", DataTables("出库清单"))
g.Groups.AddDef("出库单号")
g.Groups.AddDef("订单号")
g.Groups.AddDef("规格")
g.Groups.AddDef("单价")
g.Totals.AddDef("出库数量")
g.Totals.AddDef("合计")
e.Form.Controls("Table1").Table.DataSource = g.BuildDataSource

 


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


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

select 事件

 

 

Dim g As New GroupTableBuilder("统计表1", DataTables("出库清单"))
g.Groups.AddDef("出库单号")
g.Groups.AddDef("订单号")
g.Groups.AddDef("规格")
g.Groups.AddDef("单价")
g.Totals.AddDef("出库数量")
g.Totals.AddDef("合计")

Dim dh As WinForm.ComboBox = e.Form.Controls("按出库单号")
g.Filter = "出库单号 = '" & dh.text & "'"

e.Form.Controls("Table1").Table.DataSource = g.BuildDataSource


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


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

Dim t As Table = e.Form.Controls("Table1").Table
Dim g As New GroupTableBuilder("统计表1", DataTables("出库清单"))
g.Groups.AddDef("出库单号")
g.Groups.AddDef("订单号")
g.Groups.AddDef("规格")
g.Groups.AddDef("单价")
g.Totals.AddDef("出库数量")
g.Totals.AddDef("合计")
Dim dh As WinForm.ComboBox = e.Form.Controls("按出库单号")
g.Filter = "出库单号 = '" & dh.text & "'"
t.DataSource = g.BuildDataSource

t.Cols("出库数量").GrandTotal = True '指定要合计的列
t.Cols("合计").GrandTotal = True
t.GrandTotal = True '显示合计模式


 回到顶部