- 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)
-- 发布时间：2012/1/16 20:11:00
-- 根据库存表及库存商品表统计
狐爸，我重新上传了。可能我的表达能力不好，对不起了。
见附件：里面有两个表（库存表、库存商品表）；我想得到的是统计表。点击窗口按钮时，在窗口中生成。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目20.table |
-- 发布时间：2012/1/16 21:37:00
--
你的统计表和库存商品表没有什么区别呀。 或者说统计表数据从哪来的，怎么来的？
-- 发布时间：2012/1/16 22:19:00
--
统计表是我要实现的。
-- 发布时间：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)