共4 条记录, 每页显示 10 条, 页签: [1]

标题：根据库存表及库存商品表统计

1楼

OO 发表于：2012/1/16 20:11:00

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

见附件：里面有两个表（库存表、库存商品表）；我想得到的是统计表。点击窗口按钮时，在窗口中生成。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目20.table

2楼

mr725 发表于：2012/1/16 21:37:00

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

3楼

OO 发表于：2012/1/16 22:19:00

统计表是我要实现的。

4楼

don 发表于：2012/1/16 23:10:00

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

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)

共4 条记录, 每页显示 10 条, 页签: [1]