Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计表增加行


  共有2718人关注过本帖树形打印复制链接

主题：统计表增加行
帅哥哟，离线，有人找我吗？
dengk03
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00 		统计表增加行  发帖心情 Post By：2023/9/7 17:34:00 [只看该作者]

很久之前写的程序，窗口中生成统计表，然后Tables("库存管理_table1").addnew给统计表新增行，以前运行都没问题，突然发现无法添加行了。是什么原因？

Dim b As New SQLGroupTableBuilder("成品库存","出入库")

b.filter = "货物类型 = '成品' AND 库名 like '" & str & "'"
b.Groups.AddDef("货物编号") '添加客户列用于分组
b.Groups.AddDef("货物名称") '添加产品列用于分组
b.Groups.AddDef("配方编号") '添加产品列用于分组
b.Groups.AddDef("规格") '添加产品列用于分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Groups.AddDef("单位") '添加产品列用于分组
'b.Build '生成统计表
Tables("库存管理_table1").datasource = b.Builddatasource 
Tables("库存管理_table1").SetColVisibleWidth("货物编号|40|货物名称|110|配方编号|45|规格|110|单位|30|数量|40")
'Tables("库存管理_table1").DataTable.GlobalHandler.DrawCell = True
Tables("库存管理_table1").DataTable.AddUserStyle("缺货", Color.coral, Color.black)
Tables("库存管理_table1").filter = "数量 <> 0"
Tables("库存管理_table1").Cols("数量").GrandTotal = True '指定要合计的列
Tables("库存管理_table1").GrandTotal = True '显示合计模式
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/7 17:41:00 [只看该作者]

开启编辑状态试试

Tables("库存管理_table1").datasource = b.Builddatasource 
Tables("库存管理_table1").AllowEdit=True
 回到顶部
帅哥哟，离线，有人找我吗？
dengk03
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00 		  发帖心情 Post By：2023/9/7 17:57:00 [只看该作者]

Tables("库存管理_table1").filter = "数量 <> 0"

问题出在这一句，这句注释掉后就可以增加行了。怎么改呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/7 20:14:00 [只看该作者]

添加筛选后?不能添加，而是不符合条件，不显示而已。

新增后给数量列赋值不等于0的值就可以了，比如

dim r as row = Tables("库存管理_table1").addnew
r("数量") = -1
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询