关于这个代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

去掉单引号啊，不是双引号啊

If DataTables("表A").Find("产品 = '" & bh0 & "' And 物料 = '" & bh1 & "' And 发货时间 = '" & bh2 & "' And 金额 = " & bh3，"date desc") Is Nothing Then

改了还是一样

下载信息 [文件大小：下载次数： ]
点击浏览该文件:提取excel内容1.rar

If DataTables("表A").Find("第一列 = '" & bh0 & "' And 第二列 = '" & bh1 & "' And 第三列 = '" & bh2 & "' And 第四列 = '" & bh3 & "'") Is Nothing Then

老师呀，我是要把"date desc"这个加进去

表格根本都没有date这个列，加什么啊加

发错了，是这个

下载信息 [文件大小：下载次数： ]
点击浏览该文件:提取excel内容1.rar

Tables("表A").StopRedraw()

For Each file As String In filesys .GetFiles("D:\提取测试\测试1")

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 = 1 To Sheet.Rows.Count -1

Dim bh0 As String = sheet(n,0).Text '注意:EXCEL的第A列就是0

Dim bh1 As String = sheet(n,1).Text '注意:EXCEL的第B列就是1

Dim bh2 As String = sheet(n,2).Text

Dim bh3 As String = sheet(n,3).text

If DataTables("表A").Find("物料 = '" & bh0 & "' And 编号 = '" & bh1 & "' And 发货时间 = '" & bh2 & "' And 金额 = " & bh3，"date desc") Is Nothing Then '如果不存在同编号的订单

Dim r As Row = Tables("表A").AddNew()

For m As Integer = 0 To nms.Length - 1

r(nms(m)) = Sheet(n,m).Value

End If

Tables("表A").ResumeRedraw()

End If

是：If DataTables("表A").Find("物料 = '" & bh0 & "' And 编号 = '" & bh1 & "' And 发货时间 = '" & bh2 & "' And 金额 = " & bh3，"date desc") Is Nothing Then

这句代码，写上去各种问题。。。

没看懂到底要做什么？

Tables("表A").StopRedraw()

For Each file As String In filesys .GetFiles("D:\提取测试\测试1")

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 = 1 To Sheet.Rows.Count -1

Dim bh0 As String = sheet(n,0).Text '注意:EXCEL的第A列就是0

Dim bh1 As String = sheet(n,1).Text '注意:EXCEL的第B列就是1

Dim bh2 As String = sheet(n,2).Text

Dim bh3 As String = sheet(n,3).text

If DataTables("表A").Find("物料 = '" & bh0 & "' And 编号 = '" & bh1 & "' And 金额 = " & bh3 & "' And 发货时间 = '" & bh2 & "' "date desc") Is Nothing Then '如果不存在同编号的订单

Dim r As Row = Tables("表A").AddNew()

For m As Integer = 0 To nms.Length - 1

r(nms(m)) = Sheet(n,m).Value

End If

Tables("表A").ResumeRedraw()

End If

老师，想用这段代码实现提取excel文件夹内的最新报价，但是这玩意老是提示这个https://pan.baidu.com/s/1XGhBlzCpBxjuzhhmgYZoWg

[此贴子已经被作者于2019/9/21 10:07:59编辑过]

主题：关于这个代码