Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Excel文件|*.csv" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
e.Sender.Text = "导入中"
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
CurrentTable.StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"第一列","第二列","","","第五列","","第八列","第九列"}
Application.DoEvents
Dim cmd As new sqlcommand
cmd.commandtext = "Select distinct 第一列,第二列 from {表A}"
Dim dt As DataTable = cmd.ExecuteReader
For n As Integer = 3 To Sheet.Rows.Count -1
Dim bh As String = "第一列 ='" & sheet(n,0).Text & "' and 第二列 = '" & sheet(n,1).Text & "'"
If dt.Find(bh) Is Nothing Then
Dim r As Row = Tables("表A").AddNew()
For m As Integer = 0 To nms.Length - 1
If nms(m) > "" Then
r(nms(m)) = sheet(n,m).Value
End If
Next
End If
Next
e.Sender.Text = "导入"
CurrentTable.DataTable.Save
CurrentTable.ResumeRedraw()
End If
加好友 
发短信
Post By：2014/4/24 20:55:00 [显示全部帖子]
