主题：删除重复项

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列"
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null", cs)
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
        If flag Then
            If count > 1 Then
                idx &= idx_temp
            End If
            count = 1
            idx_temp = ""
        Else
            count += 1
            idx_temp &= dr("_Identify") & ","
        End If
    Else
        count += 1
    End If
    pdr = dr
Next
If count > 1 Then
    idx &= idx_temp
End If
DataTables("表A").DeleteFor("_Identify In (" & idx.trim(",") & ")")

此主题相关图片如下：qq截图20170824154703.png

现在想通过删除重复项把第一列第二列的数据处理成第五列第六列的效果。

就是第一列相同的数据，第二列不能有重复的。

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列,第二列"
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null", cs)
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
        If flag Then
            If count > 1 Then
                idx &= idx_temp
            End If
            count = 1
            idx_temp = ""
        Else
            count += 1
            idx_temp &= dr("_Identify") & ","
        End If
    Else
        count += 1
    End If
    pdr = dr
Next
If count > 1 Then
    idx &= idx_temp
End If
DataTables("表A").DeleteFor("_Identify In (" & idx.trim(",") & ")")

我想在删除重复项内加一个消息提示框，比如提示此次共删除多少重复项这样的语句信息。代码要怎么去处理呀？

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列,第二列"
dim sum as integer = 0
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null", cs)
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
        If flag Then
            If count > 1 Then
                idx &= idx_temp
            End If
            count = 1
            idx_temp = ""
        Else
            count += 1
            idx_temp &= dr("_Identify") & ","
            sum += 1
        End If
    Else
        count += 1
    End If
    pdr = dr
Next
If count > 1 Then
    idx &= idx_temp
End If
DataTables("表A").DeleteFor("_Identify In (" & idx.trim(",") & ")")
msgbox("删除" & sum & "条")

消息提示框出来了，但是删除动作却没有实现，是因为什么？

 

数据发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试1.zip

生产工艺1表

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "工单单号,工序"
Dim sum As Integer = 0
For Each dr As DataRow In DataTables("生产工艺1").Select("工单单号 is not null", cs)
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
        If flag Then
            If count > 1 Then
                idx &= idx_temp
            End If
            count = 1
            idx_temp = ""
        Else
            count += 1
            idx_temp &= dr("_Identify") & ","
            sum += 1
        End If
    Else
        count += 1
    End If
    pdr = dr
Next
If count > 1 Then
    idx &= idx_temp
End If
DataTables("生产工艺1").DeleteFor("_Identify In (" & idx.trim(",") & ")")
msgbox("删除" & sum & "条")

 

此主题相关图片如下：qq截图20170831103131.png


此主题相关图片如下：qq截图20170831103230.png

代码发不出来，报这样的错误，是什么原因？

1、http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632

 

2、你要做什么功能？