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

弹出这个值看一下

msgbox("统计年月 = '" & sheet(n, 0).text & "' and 姓名 = '" & sheet(n, 1).text &"'")

以下是引用188802386在2019/6/20 14:50:00的发言：
请问怎么实现导入的数据，确认状态为已确认的就不作替换，是待确认状态就替换呢

弹出这个值看一下

msgbox("统计年月 = '" & sheet(n, 0).text & "' and 姓名 = '" & sheet(n, 1).text &"'")

不会做，请上传具体实例测试

以下是引用188802386在2019/6/20 15:52:00的发言：
刚刚发现了个大问题，就是只对比加载出来了的数据，请问如何对比sql数据库里面的数据呢

方法一：你可以用sqlFind查找对比（但这种效率很低，执行一行0.5秒左右）

方法二：把数据都加载出来再导入测试

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables(eform.name & "_Table1")
    t.StopRedraw()
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 1 To Sheet.Rows.Count -1
        If sheet(n, 0).text > "" AndAlso sheet(n, 4).text > "" Then
            Dim r As DataRow = t.DataTable.Find("统计年月 = '" & sheet(n, 0).text & "' and 姓名 = '" & sheet(n, 4).text & "'")
            If r Is Nothing Then r = t.DataTable.AddNew()
            For i As Integer = 0 To sheet.Cols.Count -1
                Dim cname As String = sheet(0, i).text
                If cname > "" AndAlso t.Cols.Contains(cname) Then
                    If r("确认状态") <> "已确认" Then
                        r(cname) = sheet(n, i).Text
                        r("确认状态") = "待确认"
                        r.save
                    End If
                End If
            Next
        End If
    Next
    t.ResumeRedraw()
End If

主题：[求助]改下代码（重复值排除）