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

是表达式的问题吧？

字符型用单引号，数值列不能用单引号的，例如：

 

姓名 = '张三' And 数学 = 100

兄弟数据没得问题

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

你的表达式有问题：

 

综合 = '59'

 

是不对的，应该:

 

综合 = 59

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 DataTables("").DataCols(sheet(0, c).Text).IsNumeric Then   '是数值类型

 Else

 End If

 楼主，注意，要判断的是 狐表的表 的列的数据类型。

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

If IsNumeric(sheet(r,c).Value) Then

 

应该改为：

 

 

If  CurrentTable.DataTable.DataCols(sheet(r,c).Value)).Isnumeric Then

 

 

http://www.foxtable.com/help/topics/0413.htm

 

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
这句代码就是判断是否数字型

狐爸改了也不行