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


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

主题:统计表增加行

帅哥哟,离线,有人找我吗?
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 '显示合计模式

 回到顶部
帅哥哟,离线,有人找我吗?
dengk03
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

问题出在这一句,这句注释掉后就可以增加行了。怎么改呢

 回到顶部