Tables("交易明细").StopRedraw()
For Each file As String In filesys .GetFiles("E:\油卡文件测试\交易明细")
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"卡号","持卡人","交易时间","交易类型","金额","油品","数量","单价","奖励积分","余额","地点"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 4 To Sheet.Rows.Count -1
If Sheet(n,0).Value = "小计" Then Continue For
If Sheet(n,0).Value = "总计" Then Continue For
If Sheet(n,2).Value = "无" Then Continue For
If Sheet(n,3).Value = "圈存" Then Continue For
Dim bh0 As String = sheet(n,0).Text
Dim bh1 As String = sheet(n,1).Text
Dim bh2 As String = sheet(n,2).Text
Dim bh3 As String = sheet(n,3).Text
Dim bh4 As String = sheet(n,4).Text
Dim bh5 As String = sheet(n,5).Text
Dim bh6 As String = sheet(n,6).Text
Dim bh7 As String = sheet(n,7).Text
Dim bh8 As String = sheet(n,8).Text
Dim bh9 As String = sheet(n,9).Text
Dim bh10 As String = sheet(n,10).Text
If DataTables("交易明细").Find("卡号 = '" & bh0 & "' And 持卡人 = '" & bh1 & "' And 交易时间 = '" & bh2 & "' And 交易类型 = '" & bh3 & "' And 金额 = '" & bh4 & "' And 油品 = '" & bh5 & "' And 数量 = '" & bh6 & "' And 单价 = '" & bh7 & "' And 奖励积分 = '" & bh8 & "' And 余额 = '" & bh9 & "' And 地点 = '" & bh10 & "'") Is Nothing Then '如果不存在同编号的订单
Dim r As Row = Tables("交易明细").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
End If
Next
Tables("交易明细").ResumeRedraw()
End If
Next
加好友 
发短信
Post By：2020/5/19 21:48:00 [只看该作者]
