主题：关于导入excel的代码（已解决）

        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 sheet(r,c).Value <> "" AndAlso CurrentTable.DataTable.DataCols(sheet(0,c).Value).IsNumeric Then

                    Filter1 = Filter1 & sheet(0,c).Value & " = " & sheet(r,c).Value

                ElseIf sheet(r,c).Value = "" Then

                    Filter1 = Filter1 & sheet(0,c).Value & " is null "

                Else

                    Filter1 = Filter1 & sheet(0,c).Value & " = '" & sheet(r,c).Value & "'"

                End If

            Next

            If CurrentTable.DataTable.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