以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 有条件删除  (http://foxtable.net/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
\'后续其它代码