版主, 这是从Excel表中导入到foxtable
Dim Book As New XLS.Book("Z:\GSS Shanghai\Planning\Order handling\order control List.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
DataTables("Orderlist").datarows.clear
Tables("Orderlist").StopRedraw()
Dim nms() As String = {"Orderdate","Customer","GSSAG_PO","EndCustomer","CustomerPO","Pos","IndexNo","GSSPart","PartNo","OrderQty","OpenQty","UnitPrice","OrderVolume","Currency","RequestETA","ConfirmedETA","ETA","PickupDate","ETD","ShippingTerms","SupplierOrder","SupplierDate","SupplierName","Stock","Status","DeliveryAddress","SupplierPrice","Totalcost","GrossProfit","ProfitMargin","UnitWeight","TotalWeight","Assemblyhours","TotalAssemblyhours","Barcode"}
For n As Integer = 2 To Sheet.Rows.Count -1
Dim r As Row = Tables("Orderlist").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("Orderlist").ResumeRedraw()
DataTables.save
可是要将Sql的数据库中的 SEOrder and SEOrderEntry 中相关列导入到Foxtable中还是不了解了。能指导 一下吗? 这个账套路径是 在z:\