| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 组合统计查询求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177595) |
| -- 作者：aizaishuzui -- 发布时间：2022/5/27 17:30:00 -- 组合统计查询求助 数据库有张视图 保存着库存信息 库存表（SKU,可出库数） 我想在下单的时候确定是否有库存，生成一张统计表 SKU，待出库数，可出库数，剩余库存（可出库数-待出库数） Dim cmd As new SQLCommand cmd.C cmd.CommandText = "Select * From {出库单} Where [_Identify] IS NULL" Dim dt As DataTable = cmd.ExecuteReader(True) Dim dr As DataRow = dt.AddNew() dr("SKU") = "001" dr("待出库数") = 30 dr = dt.AddNew() dr("SKU") = "001" dr("待出库数") = 40 Dim b As New SQLGroupTableBuilder("统计表1",dt) b.C b.AddTable(dt,"SKU","库存表","SKU") \'添加统计表 b.Groups.AddDef("SKU") \'根据产品名称分组 b.Groups.AddDef("可出库数") b.Totals.AddDef("待出库数") \'对数量进行统计 b.Build \'生成统计表 MainTable = Tables("统计表1") \'打开生成的统计表 但这样报错 dt 不是表名 老师有没有更好的实现方式 |
| -- 作者：有点蓝 -- 发布时间：2022/5/27 17:33:00 -- Dim b As New SQLGroupTableBuilder("统计表1",“出库单”) b.C b.AddTable(“出库单”,"SKU","库存表","SKU") \'添加统计表 b.Groups.AddDef("SKU") \'根据产品名称分组 b.Groups.AddDef("可出库数") b.Totals.AddDef("待出库数") \'对数量进行统计 b.Build \'生成统计表 MainTable = Tables("统计表1") \'打开生成的统计表
[此贴子已经被作者于2022/5/27 17:33:32编辑过]
|
| -- 作者：aizaishuzui -- 发布时间：2022/5/27 17:43:00 -- 老师您好 这个出库单还未生成 所以才从sql生成个空表 我需要把库存数据回填虚拟出来的dt 我在遍历dt dim 库存充足 as boolen = true for each dr as datarow in dt.datarows
if dr("可出库数") - dr("待出库数") < 0 then
库存充足 = false
endif next msgbox(库存充足)
|
| -- 作者：有点蓝 -- 发布时间：2022/5/28 8:37:00 -- 没看懂。请使用具体的表格和数据，截图举例说明问题 |