Foxtable(狐表)用户栏目专家坐堂 → [求助]Excel 导入时在其它列输入数据


  共有2367人关注过本帖树形打印复制链接

主题:[求助]Excel 导入时在其它列输入数据

帅哥哟,离线,有人找我吗?
2900819580
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1346 积分:9807 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助]Excel 导入时在其它列输入数据  发帖心情 Post By:2016/8/2 8:51:00 [只看该作者]

如下以代码,我想在导入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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1346 积分:9807 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2016/8/2 10:45:00 [只看该作者]

请大家帮一下忙。

 回到顶部
帅哥哟,离线,有人找我吗?
2900819580
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1346 积分:9807 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2016/8/2 11:16:00 [只看该作者]

怎么没人帮忙呢?


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/8/2 11:17:00 [只看该作者]

如果父阶料号都一样,导入后替换一下

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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/2 18:36:00 [只看该作者]

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

 

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

 


 回到顶部