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

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("勤务信息表")
    t.ResumeRedraw()
    t.StopRedraw()
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim arg = rg.value
        For n As Integer = 2 To rg.Rows.Count
            Dim r As DataRow = t.DataTable.Find("日期 = #" & arg(n, 1) & "# and 航班号 = '" & arg(n, 3) & "' and 安全员 = '" & arg(n, 11) & "'")

            If r Is Nothing Then r = t.DataTable.AddNew()
            For i As Integer = 1 To rg.Columns.count
                Dim cname As String = arg(1,i)
                If cname > "" AndAlso t.Cols.Contains(cname) Then
                    If t.Cols(cname).IsDate AndAlso arg(n,i).Gettype.name = "double" Then
                        r(cname) = DateTime.FromOADate(arg(n,i))
                    Else
                        r(cname) = arg(n, i)
                    End If
                End If
            Next
        Next
    catch ex As exception
        msgbox(ex.message)
        MessageBox.Show("导入失败!","恭喜!")
    finally
        t.ResumeRedraw()
        app.quit
    End try

End If

主题：[求助]合并（导入）去重的问题