- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 查找重复行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169641)
-- 发布时间：2021/6/24 11:00:00
-- 查找重复行
筛选表A的重复行（表A窗口按钮代码）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2021/6/24 11:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1 (1).zip |
-- 发布时间：2021/6/24 11:38:00
--
能贴出代码吗？我的狗版本低。
-- 发布时间：2021/6/24 11:40:00
--
升级到最新版本
-- 发布时间：2021/6/24 11:57:00
--
暂时升不了。
-- 发布时间：2021/6/24 13:37:00
--
For Each dr As DataRow In DataTables("表A").DataRows
If dr.isnull("颜色") Then
If DataTables("表A").Find("型号 = \'" & dr("型号") & "\' And 规格 = \'" & dr("规格") & "\' And 颜色 is null") IsNot Nothing Then
MessageBox.Show("有重复行!","提示")
Exit For
End If
End If
If DataTables("表A").Find("型号 = \'" & dr("型号") & "\' And 规格 = \'" & dr("规格") & "\' And 颜色 = \'" & dr("颜色") & "\'") IsNot Nothing Then
MessageBox.Show("有重复行!","提示")
Exit For
End If
Next
-- 发布时间：2021/6/24 14:09:00
--
表A没有重复行，6楼代码一直提示有重复行。
-- 发布时间：2021/6/24 15:03:00
--
如果是指1楼的项目，表A肯定有重复行
Dim b As New GroupTableBuilder("统计表1",DataTables("表A"))
b.Groups.AddDef("型号") \'根据产品分组
b.Groups.AddDef("规格") \'对数量进行统计
b.Groups.AddDef("颜色")
b.Totals.AddDef("型号",AggregateEnum.Count,"数量")
Dim dt As DataTable = b.Build(True) \'生成统计表
If dt.Find("数量 > 1") IsNot Nothing Then
msgbox("重复")
End If
-- 发布时间：2021/6/24 15:20:00
--
8楼代码可判断有无重复行，谢了。
1楼的表A我已经手工删除了重复行，但6楼代码一直提示有重复行。