主题：合并电子表格数据疑问？

 

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 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

End If

 

 

上述代码为能正确执行合并电子表格数据

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:sj.xls

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 sheet(r,c).Value = "" Then  Continue For

            If c > 0 Then
                Filter1 = Filter1 & " And "
            End If
            If CurrentTable.DataTable.DataCols(sheet(0,c).Value).IsNumeric 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
'msgbox(filter1)
        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
End If

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 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
End If

问题已解决