以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  fields指定引入列失败  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=196481)
--  作者：zjykyy
--  发布时间：2025/5/3 2:49:00
--  fields指定引入列失败
从excel文件合并到销售单，只需要合并指定列，以下代码保存错误，请老师帮忙看看哪里不对。是否因为excel列名中包含"*"导致错误，*号是erp中引出就有的，手工删除会很麻烦

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then    
        Dim mg As New Merger
        mg.SourcePath = dlg.FileName
        mg.SourceTableName = "Sheet1"
        mg.DataTableName = "销售单"
        mg.Fields(商品编码,商品名称,规格,单位,*销售数量,销售金额,*生产批号,生产日期,有效期至)      
        mg.Merge()
End If
--  作者：有点蓝
--  发布时间：2025/5/4 13:21:00
--  
列名不能包含特殊符号。

可以使用代码把*号去掉再导。

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then  
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
  For n As Integer = 1 To Sheet.Cols.Count -1
   Sheet(n,m).Value = Sheet(n,m).Value.replace("*","")
Next
Book.Save(dlg.FileName)
        Dim mg As New Merger
        mg.SourcePath = dlg.FileName
        mg.SourceTableName = "Sheet1$"
        mg.DataTableName = "销售单"
if  dlg.FileName.endswith(".xls")
mg.Format = "excel" \'指定格式
else
mg.Format = "excel2007" \'指定格式
end if
        mg.Fields(商品编码,商品名称,规格,单位,销售数量,销售金额,生产批号,生产日期,有效期至)      
        mg.Merge()
End If