Dim TbName As String = e.form.name & "_table1"
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Dim hj As Integer = 0
Forms("加载窗口").Show()
For Each file As String In dlg.FileNames
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables(TbName).StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"商品名称", "进货价"}
'注意下面的循环变量从3开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 2 To Sheet.Rows.Count - 1
Dim bh0 As String = sheet(n, 0).Text
Dim bh1 As String = sheet(n, 1).Text
If bh0 > "" Or bh1 > "" Then
Dim filter As String = "1=1"
If bh0 > "" Then
filter &= " and 商品名称 = '" & bh0 & "'"
Else
filter &= " And 商品名称 Is null"
End If
'后台加载表
Dim c md As New
Dim dt As DataTable = c md.Execut eReader(True)
Dim dr As DataRow = dt.s qlFind(filter)
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables(TbName).AddNew()
hj = hj + 1 '记录导入的条数
End If
For m As Integer = 0 To nms.Length - 1 '开始导入
dr(nms(m)) = Sheet(n, m).Value
Next
End If
Next
Tables(TbName).ResumeRedraw() '停止绘制
CurrentTable.Save '保存
Next
Forms("加载窗口").Close()
'-----合计导入-------
MessageBox.Show("导入完成,合计导入了 " & hj & " 条记录!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
加好友 
发短信
Post By：2024/8/1 11:48:00 [只看该作者]
