主题：合并电子表格数据查询是否重复问题

导入数据报错？请大家帮忙看看

 

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For i As Integer = 0 To Sheet.Cols.Count -1
        If CurrentTable.Cols.Contains( Sheet(0,i).Value) = False Then
            MessageBox.Show("目标文件不含【" & Sheet(0,i).Value & "】列,请修改与目标文件一致!", "导入错误提示")
            Return
        End If
    Next
   
    For r As Integer = 1 To Sheet.Rows.Count - 1
        Dim Filter1 As String
        For c As Integer = 0 To Sheet.Cols.Count - 1
            If c > 0 Then
                Filter1 = Filter1 & " And "
            End If
            Filter1 = Filter1 & sheet(0,c).Value & " = '" & sheet(r,c).Value & "'"    
        Next
        If DataTables("一年级毕业成绩").Find(Filter1) Is Nothing Then   ‘问题就是这句判断
            Dim dr As Row = CurrentTable.AddNew()
            For c As Integer = 0 To Sheet.Cols.Count - 1
                dr(Sheet(0,c).Value) = Sheet(r,c).Value
            Next
        End If
    Next
End If

狐爸你看看。

我看了没问题呀

，请兄弟们帮忙找找问题

此主题相关图片如下：未命名.jpg

哪个帮我看看

这个我搞了几天都没弄明白

程版你帮我看看

兄弟数据没得问题

不查询是否是重复，就可以正确导入

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For i As Integer = 0 To Sheet.Cols.Count -1
        If CurrentTable.Cols.Contains( Sheet(0,i).Value) = False Then
            MessageBox.Show("目标文件不含【" & Sheet(0,i).Value & "】列,请修改与目标文件一致!", "导入错误提示")
            Return
        End If
    Next
   
    For r As Integer = 1 To Sheet.Rows.Count - 1
        Dim Filter1 As String
        For c As Integer = 0 To Sheet.Cols.Count - 1
            If c > 0 Then
                Filter1 = Filter1 & " And "
            End If
            If IsNumeric(sheet(r,c).Value) Then
                Filter1 = Filter1 & sheet(0,c).Value & " = " & sheet(r,c).Value
            Else
                Filter1 = Filter1 & sheet(0,c).Value & " = '" & sheet(r,c).Value & "'"
            End If
        Next
        If DataTables("一年级毕业成绩").Find(Filter1) Is Nothing Then
            Dim dr As Row = CurrentTable.AddNew()
            For c As Integer = 0 To Sheet.Cols.Count - 1
                dr(Sheet(0,c).Value) = Sheet(r,c).Value
            Next
        End If
    Next
End If

狐爸按你的要求我修改了表达式，还是报同样的错。

我上面那方法与你说的意思一样的。转换的时候都判断了是否加单引号

If IsNumeric(sheet(r,c).Value) Then
                Filter1 = Filter1 & sheet(0,c).Value & " = " & sheet(r,c).Value
            Else
                Filter1 = Filter1 & sheet(0,c).Value & " = '" & sheet(r,c).Value & "'"
            End If
这句代码就是判断是否数字型