| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 有条件删除 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151271) |
| -- 作者：leoli -- 发布时间：2020/6/19 11:14:00 -- [求助] 有条件删除 老师 表A中第一列是产品名，第二列条码号， 表B的结构跟表A一样。 如果表B中的条码号在表B条码号中只出现一次就删除表A中相应条码号的记录，请问如何在代码按钮中实现 ？ [此贴子已经被作者于2020/6/19 11:14:29编辑过]
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2020/6/19 20:04:00 -- 老师，谢谢。不过表B有上万条记录，这样产生个统计表很慢，有没有更好的办法，比如用find在表B中找，只能找相同一次的就删除呢？ 谢谢。 |
| -- 作者：有点蓝 -- 发布时间：2020/6/19 20:27:00 -- 没有其它办法 |
| -- 作者：leoli -- 发布时间：2020/6/19 22:39:00 -- 老师，或者这么来，表B中这个条码号重复二次以上（包含二次）就不执行下面的代码，否则断续，有方法吗？谢谢了。 |
| -- 作者：有点蓝 -- 发布时间：2020/6/19 23:01:00 -- 这个条码号是指哪一个？如果不统计根本就不可能知道，会不会有重复的 |
| -- 作者：leoli -- 发布时间：2020/6/19 23:21:00 -- 老师，是表B 第二列的列名 “条码号”， 如果这个列中有重复的记录（超过二次包含二次）就不执行后面的代码，否则断续执行后续的代码。谢谢。 |
| -- 作者：有点蓝 -- 发布时间：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 \'后续其它代码
|