以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Excel 导入时在其它列输入数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88388)

--  作者:2900819580
--  发布时间:2016/8/2 8:51:00
--  [求助]Excel 导入时在其它列输入数据
如下以代码,我想在导入BOM的同时,在父阶料号列输入父阶料号“1.001.01”
请问怎么实现。

Excel有列。物料代码|物料名称|物料规格|用量|单位
Foxtel有列。父阶料号|物料代码|物料名称|物料规格|用量|单位

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel" \'指定格式
    mg.SourceTableName = "sheet1$" \'指定要合并的表
    mg.DataTableName = "BOM" \'指定接收数据的表
    mg.Merge() \'开始合并
    
End If

MessageBox.Show("全部导入完成","完成",MessageBoxButtons.OK,MessageBoxicon.Information)

--  作者:2900819580
--  发布时间:2016/8/2 10:45:00
--  
请大家帮一下忙。
--  作者:2900819580
--  发布时间:2016/8/2 11:16:00
--  

怎么没人帮忙呢?


--  作者:Hyphen
--  发布时间:2016/8/2 11:17:00
--  
如果父阶料号都一样,导入后替换一下

DataTables("BOM").ReplaceFor("父阶料号","1.001.01","父阶料号 is null")

--  作者:大红袍
--  发布时间:2016/8/2 18:36:00
--  

 最简单,可以用代码来做嘛

 

http://www.foxtable.com/webhelp/scr/2334.htm