如何实现不重复？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现不重复？

共有1719人关注过本帖树形打印复制链接主题：如何实现不重复？

lin98

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00

如何实现不重复？ 发帖心情

Post By：2024/8/8 16:23:00 [显示全部帖子]

Dim Cols3() As String = {"产品编号", "品名"}

Dim Cols4() As String = { "产品编号", "品名"}

For Each dr3 As DataRow In DataTables("窗口_Table3").Select("启用状态='启用'") '

Dim dr4 As Row = Tables("窗口_Table1").AddNew() '

For r As Integer = 0 To Cols3.Length - 1

dr4(Cols4(r)) = dr3(Cols3(r))

上面代码，执行后，会重复的复制数据。

需求：如果没旧数据，只复制启用状态='启用,而且数据不重复,如果存在旧数据，则忽略，退出，如何实现？

lin98

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/8/9 9:09:00 [显示全部帖子]

Dim nma() As String = {"产品编号", "品名"}'

Dim nmb() As String = {"产品编号", "品名"} '

For Each dr3 As DataRow In DataTables("窗口_Table3").Select("启用状态='启用'") '

If DataTables("销窗口_Table2").Find("产品编号 = '" & r("产品编号") & "'") Is Nothing Then '

Dim dr As Row = Tables("窗口_Table2").AddNew '

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

Else

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

End If

这种发现一条弹一次，手动确认，1万条有1000条重复，弹1000次，手动确认，那很不友好，如何做更好？

主题：如何实现不重复？