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

按帮助写的导入代码,不知道为什么导入时多了好多空白行.

http://www.foxtable.com/webhelp/index.htm?page=2492.htm

代码如下:

Dim Book As New XLS.Book ("c:\po.tracking.xls")

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

Tables("Po_Tracking").StopRedraw()

'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

Dim nms() As String = {"Customer_Country","ship_to_country","Sales_Order_No","Sales_Order_Date","Customer_PO_number","Customer_PO_Date","Customer_code","Customer_Name","Ship_to_code","SO_remarks","Category","大类","Item_code","Item_description","Customer_item_code","Customer_request_date","Sales_price_with_tax","Sales_order_value","Purchase_Order_number","Purchase_Order_date","采购订单审批日期","Vendor_code","Vendor_Name_ZH","Vendor_Name_EN","PI_number","Pur_Order_currency","PO_Remarks","Pur_Order_booked_QTY","PO_discount","PO_price_with_tax","Discount_PO_price","金额","Ex_works_date","Revised_ex_works_date","Acutal_ex_date","Delay_reason","Forwarder","Acutal_FOB_date","Vendor_invoice_number","入库单号","采购fa piao单据号","销售fa piao号","Remarks","提单号"}

'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

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

Dim r As Row = Tables("Po_Tracking").AddNew()

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

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

Tables("Po_Tracking").ResumeRedraw()

以下是引用有点蓝在2021/1/14 11:37:00的发言：
execl本身就有空行，加个判断

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

if Sheet(n,0).text.trim() > "" 如果第一列有值

Dim r As Row = Tables("Po_Tracking").AddNew()

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

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

此主题相关图片如下：53f4c2ea02a965e0881434c1e479570.png

end if

你好,我添加了这判断,不知道为啥数据多导了一次,两个相同数据间,还是存在空白行.

或者,可不可以添加一个删除空白行的按钮?但不知道代码如何写

Dim Book As New XLS.Book ("c:\po.tracking.xls")

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

Tables("Po_Tracking").StopRedraw()

'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

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

Dim r As Row = Tables("Po_Tracking").AddNew()

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

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

Tables("Po_Tracking").ResumeRedraw()

主题：多余空白行