[求助]重复值筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

筛选表Ａ中出厂编号或注册代码的重复值，怎样改下面的语句　Syscmd.Filter.ShowSameValues()　即查找表Ａ中出厂编号相同或者注册代码相同的记录

[此贴子已经被作者于2015/10/31 14:33:38编辑过]

Tables("表A").RepeatFilter("出厂编号", 0)　与Tables("表A").RepeatFilter("注册代码", 0)　能不能将各自的记录筛选出来且合并相同的记录。

[此贴子已经被作者于2015/10/31 15:36:34编辑过]

根据参考在

beforeSaveDataRow事件

改成：

Dim dr As DataRow =e.DataRow

Dim filter As String = "1=1"

If dr.IsNull("出厂编号") Then

filter &= " and 出厂编号 is null"

Else

filter &= " and 出厂编号 = '" & dr("出厂编号") & "'"

End If

If dr.IsNull("注册代码") Then

filter &= " and 注册代码 is null"

Else

filter &= " and 注册代码 = '" & dr("注册代码") & "'"

End If

If e.DataTable.Compute("Count([_Identify])",filter) > 1 Then

MessageBox.Show("已经存在相同的出厂编号或注册代码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.cancel = True

End If

但提示错误代码：

Dim dr As DataRow =e.DataRow

5楼的代码只是当出厂编号与注册代码同时重复时，才能提示，我是要当出厂编号或者注册代码作任一个出现重复就提示。即当出厂编号重复了，但注册代码没有重复，应提示。当注册代码重复了，但出厂编号没有重复，应提示。当出厂编号与注册代码同时是重复，应提示。

用以下代码也不行，怎样改才行

Dim dr As DataRow =e.DataRow

Dim filter As String = "1=1"

If dr.IsNull("出厂编号") Then

filter &= " and 出厂编号 is null"

Else

filter &= " and 出厂编号 = '" & dr("出厂编号") & "'"

End If

If e.DataTable.Compute("Count([_Identify])",filter) > 1 Then

MessageBox.Show("已经存在相同的出厂编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.cancel = True

Else

If dr.IsNull("注册代码") Then

filter &= " and 注册代码 is null"

Else

filter &= " and 注册代码 = '" & dr("注册代码") & "'"

End If

If e.DataTable.Compute("Count([_Identify])",filter) > 1 Then

MessageBox.Show("已经存在相同的注册代码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.cancel = True

End If

[此贴子已经被作者于2015/10/31 20:02:35编辑过]

此主题相关图片如下：1.jpg

beforeSaveDataRow事件

Dim dr As DataRow =e.DataRow

Dim filter As String = "1=1"

If dr.IsNull("出厂编号") Then

filter &= " and 出厂编号 is null"

Else

filter &= " and 出厂编号 = '" & dr("出厂编号") & "'"

End If

If dr.IsNull("注册代码") Then

filter &= " and 注册代码 is null"

Else

filter &= " and 注册代码 = '" & dr("注册代码") & "'"

End If

If e.DataTable.Compute("Count([_Identify])",filter) > 1 Then

MessageBox.Show("已经存在相同的出厂编号或注册代码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.cancel = True

End If

上面代码只有出厂编号与注册代码同时重复时，保存时才能出现提示框，我是要当出厂编号或者注册代码任一个出现重复保存时出现提示框。即当出厂编号重复了，但注册代码没有重复，保存时应出现提示框，。当注册代码重复了，但出厂编号没有重复，保存时应出现提示框。当出厂编号与注册代码同时是重复，保存时应出现提示框。如上截图，当出现第二、三、四行的情况时，当新增一行保存时，要求出现重复提示框，怎样设置代码？第二行出厂编号与第一行重复、第三行注册代码与第一行重复、第四行出厂编号与注册代码与第一行同时重复。

还有我想检查我以前的录入数据有没有出现这样的错误，能不能用命令代码把这些行筛选出来？

[此贴子已经被作者于2015/11/1 9:27:16编辑过]

主题：[求助]重复值筛选