Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 有条件删除


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

主题：[求助] 有条件删除
帅哥哟，离线，有人找我吗？
leoli
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00 		[求助] 有条件删除  发帖心情 Post By：2020/6/19 11:14:00 [只看该作者]


老师

表A中第一列是产品名，第二列条码号， 表B的结构跟表A一样。

如果表B中的条码号在表B条码号中只出现一次就删除表A中相应条码号的记录，请问如何在代码按钮中实现 ？


[此贴子已经被作者于2020/6/19 11:14:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim b As New GroupTableBuilder("统计表1",DataTables("表B"))
b.Groups.AddDef("条码号") '根据产品分组
b.Totals.AddDef("条码号",AggregateEnum.Count,"计数") '对数量进行统计
dim dt as datatable = b.Build(true) '生成统计表

dim filter as string = ""
for each dr as datarow = dt.select("计数 = 1")
filter = filter & ",'" & dr("条码号") & "'"
next
if filter = "" then return
filter = filter.trim(",")

DataTables("表A").deletefor("条码号 in (" & filter & ")")
[此贴子已经被作者于2020/6/19 11:19:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
leoli
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00 		  发帖心情 Post By：2020/6/19 20:04:00 [只看该作者]

老师，谢谢。不过表B有上万条记录，这样产生个统计表很慢，有没有更好的办法，比如用find在表B中找，只能找相同一次的就删除呢？ 谢谢。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没有其它办法

 回到顶部
帅哥哟，离线，有人找我吗？
leoli
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00 		  发帖心情 Post By：2020/6/19 22:39:00 [只看该作者]

老师，或者这么来，表B中这个条码号重复二次以上（包含二次）就不执行下面的代码，否则断续，有方法吗？谢谢了。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/19 23:01:00 [只看该作者]

这个条码号是指哪一个？如果不统计根本就不可能知道，会不会有重复的

 回到顶部
帅哥哟，离线，有人找我吗？
leoli
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00 		  发帖心情 Post By：2020/6/19 23:21:00 [只看该作者]

老师，是表B 第二列的列名 “条码号”， 如果这个列中有重复的记录（超过二次包含二次）就不执行后面的代码，否则断续执行后续的代码。谢谢。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

意思是随便有一个“条码号”有重复的记录就不执行后面的代码？

Dim b As New GroupTableBuilder("统计表1",DataTables("表B"))
b.Groups.AddDef("条码号") '根据产品分组
b.Totals.AddDef("条码号",AggregateEnum.Count,"计数") '对数量进行统计
dim dt as datatable = b.Build(true) '生成统计表
if dt.find("计数 > 1") isnot nothing then return
'后续其它代码
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05200 秒, 4 次数据查询