[求助]EXCEL单个列内容自动填列到狐表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

类似

Dim Book As New XLS.Book("c:\导入用表.xlsx")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

For n As Integer = 1 To Sheet.Rows.Count -1

Dim a As String = sheet(n,0).Text

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

Dim c As String = sheet(n,3).Text

Dim d As String = sheet(n,4).Text

Dim dr As DataRow = DataTables("表A").Find("上游客户 = '" & a & "' and 清单号='" & b & "' and 底盘号='" & c & "'")

If dr Is Nothing Then '如果不存在同编号的订单

sheet(n,5).Text = dr("对账金额")

Else

dr = DataTables("表A").Find("上游客户 = '" & a & "' and 清单号='" & b & "' and 上游动态='" & d & "'")

If dr Is Nothing Then '如果不存在同编号的订单

sheet(n,5).Text = dr("对账金额")

Else

dr = DataTables("表A").Find("上游客户 = '" & a & "' and 底盘号='" & c & "' and 上游动态='" & d & "'")

If dr Is Nothing Then '如果不存在同编号的订单

sheet(n,5).Text = dr("对账金额")

Else

……四列中的任意三列的所有排列组合查询自己补充完整,最后所有可能性都查询完毕没有结果的,在把数据导入B表即可

Dim nr As DataRow = DataTables("表B").AddNew

nr("上游客户") = a

nr("清单号") = b

End If

sheet(n,5).Text改为sheet(n,5).Value

Dim Book As New XLS.Book("D:\问题\导入用表.xlsx")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

For n As Integer = 1 To Sheet.Rows.Count -1

Dim a As String = sheet(n,0).Text

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

Dim c As String = sheet(n,3).Text

Dim d As String = sheet(n,4).Text

Dim dr As DataRow = DataTables("表A").Find("上游客户 = '" & a & "' and 运输动态='" & b & "' and 底盘号='" & c & "'")

If dr IsNot Nothing Then '如果不存在同编号的订单

sheet(n,5).value = dr("实际对账金额")

Else

dr = DataTables("表A").Find("上游客户 = '" & a & "' and 清单号='" & b & "' and 运输动态='" & d & "'")

If dr IsNot Nothing Then '如果不存在同编号的订单

sheet(n,5).value = dr("实际对账金额")

Else

dr = DataTables("表A").Find("上游客户 = '" & a & "' and 底盘号='" & c & "' and 运输动态='" & d & "'")

If dr IsNot Nothing Then '如果不存在同编号的订单

sheet(n,5).value = dr("对账金额")

Else

Dim nr As DataRow = DataTables("表B").AddNew

nr("上游客户") = a

nr("清单号") = b

nr("底盘号") = c

nr("运输动态") = d

End If

Book.Save("c:\导入用表.xlsx")

主题：[求助]EXCEL单个列内容自动填列到狐表的问题