以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  库存统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139220)

--  作者:dengk03
--  发布时间:2019/8/8 14:17:00
--  库存统计
现在有一个出入库表,里面记录所有的出入库流水账
想实现以下几个功能
1.查询当前库存
2.盘库,对照实际库存,对理论库存进行修正,比如A货物当前库存显示为10吨,实际为9吨,则记录下库存减少1吨的信息,并录入到出入库表中。
请教如何实现以上功能?是建立一个临时表么?


--  作者:有点蓝
--  发布时间:2019/8/8 14:28:00
--  
查询参考:http://www.foxtable.com/webhelp/topics/1058.htm

做个库存分组统计生成目前库存的统计表,绑定到窗口表,然后填入盘点结果进行对比和计算

--  作者:dengk03
--  发布时间:2019/8/8 14:37:00
--  
如何建立分组查询?sql么?然后用什么语句绑定到窗口表?
--  作者:有点蓝
--  发布时间:2019/8/8 14:49:00
--  
参考:http://www.foxtable.com/webhelp/topics/0677.htm


--  作者:dengk03
--  发布时间:2019/8/8 17:01:00
--  
Dim b As New GroupTableBuilder("库存",DataTables("出入库"))
b.filter = "货物类型 = \'成品\' AND 库名 = \'" & str & "\'"
b.Groups.AddDef("货物编号") \'添加客户列用于分组
b.Groups.AddDef("货物名称") \'添加产品列用于分组
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Groups.AddDef("单位") \'添加产品列用于分组
b.Build \'生成统计表 
DataTables("库存").DataCols.Add("修正数量",Gettype(Double))
Tables("库存管理_table1").datasource = DataTables("库存")

想直接在这个表上进行库存盘点和修改,这样写能运行,但是马上就报错,应该是datatable自动销毁?那这里该怎么处理?

--  作者:狐狸爸爸
--  发布时间:2019/8/8 17:07:00
--  
还是不认真看帮助造成的:

http://www.foxtable.com/webhelp/topics/1909.htm

绑定之后,再用代码添加表达式列。

Dim b As New GroupTableBuilder("库存",DataTables("出入库"))
b.filter = "货物类型 = \'成品\' AND 库名 = \'" & str & "\'"
b.Groups.AddDef("货物编号") \'添加客户列用于分组
b.Groups.AddDef("货物名称") \'添加产品列用于分组
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Groups.AddDef("单位") \'添加产品列用于分组
Tables("库存管理_table1").datasource = b.BuildDataSource()
DataTables("库存管理_table1")..DataCols.Add("修正数量",Gettype(Double))