以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据库存表及库存商品表统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15900)

--  作者:OO
--  发布时间:2012/1/16 20:11:00
--  根据库存表及库存商品表统计

狐爸,我重新上传了。可能我的表达能力不好,对不起了。

见附件:里面有两个表(库存表、库存商品表);我想得到的是统计表。点击窗口按钮时,在窗口中生成。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目20.table


--  作者:mr725
--  发布时间:2012/1/16 21:37:00
--  

你的统计表和库存商品表没有什么区别呀。 或者说统计表数据从哪来的,怎么来的?


--  作者:OO
--  发布时间:2012/1/16 22:19:00
--  

统计表是我要实现的。


--  作者:don
--  发布时间:2012/1/16 23:10:00
--  
A.

Dim tb As Table =Tables(e.Form.name & "_Table1")
Dim dt1,dt2 As fxDataSource
Dim g As New GroupTableBuilder("统计表1",DataTables("库存"))
g.Groups.AddDef("货品编码") \'根据产品分组
g.Totals.AddDef("当前库存") \'对数量进行统计
dt1 = g.BuildDataSource()

Dim g1 As New GroupTableBuilder("统计表1",DataTables("库存商品"))
g1.Groups.AddDef("货品编码")
g1.Groups.AddDef("货品类型")
g1.Groups.AddDef("计量单位")
g1.Groups.AddDef("货品名称")
g1.Groups.AddDef("规格型号")
g1.Groups.AddDef("备注")
g1.Totals.AddDef("库存上限")
g1.Totals.AddDef("库存下限")
g1.Totals.AddDef("入库参考价")
g1.Totals.AddDef("出库参考价")
dt2 = g1.BuildDataSource()
dt1.Combine("货品编码",dt2,"货品编码")
tb.DataSource = dt1
tb.SetColVisibleWidth("货品编码|-1|货品类型|-1|计量单位|-1|货品名称|-1|当前库存|-1|规格型号|-1|生产厂商|-1|库存上限|-1|库存下限|-1|入库参考价|-1|出库参考价|-1|备注|-1")


Dim kppms As List(Of String)
kppms = DataTables("库存").GetUniqueValues("", "货品编码")

For Each rrr As Row In tb.Rows
    If kppms.Contains(rrr("货品编码"))=False Then
        rrr.Delete
    End If
Next


B.

Dim sql As String
Dim dst1 As Table = Tables(e.Form.name & "_Table1")
sql = "Select  a.货品编码,当前库存,货品类型,计量单位,货品名称,规格型号,生产厂商,库存上限,库存下限,入库参考价,出库参考价,备注 from("
sql+ ="Select  货品编码,sum(当前库存) As 当前库存 From {库存} group by  货品编码) a Left jOIN {库存商品} b  ON a.货品编码 = b.货品编码" 
dst1.fill(sql,True)