以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问如何实现这样的效果?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60322)

--  作者:rophy0952
--  发布时间:2014/11/22 18:04:00
--  [求助]请问如何实现这样的效果?
在进行窗口打印时,希望打印的数据为每个生产单号为一条数据进行打印,如图:只需打印3张。如何对其进行筛选?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20141122175323.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2014-11-22 18:05:06编辑过]

--  作者:rophy0952
--  发布时间:2014/11/22 18:07:00
--  
下图

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20141122180824.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2014/11/23 9:43:00
--  

 先生成分组报表,然后再打印

 

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

 


--  作者:rophy0952
--  发布时间:2014/11/23 10:20:00
--  
有点甜,你好!刚才试了一下分组统计,因为我的字段类型均为字符型,所以无法统计,请问有其它办法可以解决吗?谢谢
--  作者:有点甜
--  发布时间:2014/11/23 10:21:00
--  
 分组可以是字符型啊,统计才需要是数值。
--  作者:rophy0952
--  发布时间:2014/11/23 11:13:00
--  
我对分组统计不太熟悉,看了半天的帮助也没研究明白,做了个例子,能帮忙指点一下吗?谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:问题.foxdb



--  作者:有点甜
--  发布时间:2014/11/23 11:21:00
--  

 直接分组统计生成表啊

 

Dim g As New GroupTableBuilder("统计表1", DataTables("生产入库明细表"))
g.Groups.AddDef("生产单号")
g.Groups.AddDef("等级")
g.Totals.AddDef("幢1_毛重")
g.Totals.AddDef("幢1_净重")
g.Build()
MainTable = Tables("统计表1")


--  作者:rophy0952
--  发布时间:2014/11/23 14:34:00
--  
代码这样写对吗?写在窗口的Afterload事件中:

Dim g As New GroupTableBuilder("统计表1", DataTables("生产入库明细表"))
g.Groups.AddDef("生产单号")
g.Groups.AddDef("产品型号")
g.Groups.AddDef("产品规格")
g.Groups.AddDef("厂商代号")
g.Groups.AddDef("客户代号")
g.Groups.AddDef("物料类型")
g.Groups.AddDef("已打印")
g.Totals.AddDef("每箱净重")
g.Build()
MainTable = Tables("统计表1")
Tables("统计表1").filter = "物料类型 <> \'半成品膜\' and 已打印 = false"


没有载入任何数据,不知是不是我的是外部数据库的原因呢?请问如何解决?谢谢

--  作者:rophy0952
--  发布时间:2014/11/23 14:42:00
--  
我应该是了解到一些原因了,因为我的窗口字段是绑定表的字段,但是afterload又是引用的“统计表”,所以没有载入数据,请问如何将统计表绑定的我的“生产入库明细表”中呢?
--  作者:有点甜
--  发布时间:2014/11/23 14:46:00
--  

Dim g As New GroupTableBuilder("统计表1", DataTables("生产入库明细表"))
g.Groups.AddDef("生产单号")
g.Groups.AddDef("产品型号")
g.Groups.AddDef("产品规格")
g.Groups.AddDef("厂商代号")
g.Groups.AddDef("客户代号")
g.Totals.AddDef("每箱净重")
g.FromServer = True
g.filter = "物料类型 <> \'半成品膜\' and 已打印 = false"
g.Build()
MainTable = Tables("统计表1")