从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