Foxtable(狐表)用户栏目专家坐堂 → 导入问题


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

主题:导入问题

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
导入问题  发帖心情 Post By:2017/1/4 14:49:00 [只看该作者]

1.老师,导入的源文件可能存在空白行,导入进去也会将空白行导入,能否导入的时候判断为空的就不导入?
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.Format = "Excel2007"
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "加芯片前MRP汇总表$"
    mg.DataTableName = "加芯片前MRP汇总表"
    mg.Merge()
End If
For Each dt As DataTable In DataTables
    dt.Save()
Next
MessageBox.Show("合并导入成功!","提示")

2.老师,现在统计出
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170104144710.png
图片点击可在新窗口打开查看,内容为变量,能否将这些内容直接与另一张表格合在一起成为那张表格的列?列如这里10个内容,那张合成的表就会多出10列相对的。
[此贴子已经被作者于2017/1/4 14:50:58编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/4 15:22:00 [只看该作者]

1、你可以导入后删除;或者用代码方式处理 http://www.foxtable.com/webhelp/scr/2334.htm

 

2、用实例说明。


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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2017/1/4 15:49:00 [只看该作者]

表格1就1列内容,但内容不定,为变量
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170104144710.png
图片点击可在新窗口打开查看
表格2有多列内容
图片点击可在新窗口打开查看此主题相关图片如下:qq截图2.png
图片点击可在新窗口打开查看
希望变成表格3,表格3列名为表格2原列名+表格1内容
图片点击可在新窗口打开查看此主题相关图片如下:qq截图3.png
图片点击可在新窗口打开查看
请问如何实现?

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/4 15:51:00 [只看该作者]

 循环每一行,动态增加临时列

 

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

 


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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2017/1/6 19:34:00 [只看该作者]

Dim sql1 As String = "s elect distinct [交货日期] AS [交货日期] from {周出货计划}"
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
Dim cmb1 As WinForm.ComboBox
cmd1.CommandText = sql1
dt1 = cmd1.ExecuteReader()
Dim f1 As New Filler
f1.SourceTable = dt1
f1.DataTable = DataTables("交货日期") 
f1.Fill()

For Each dr As DataRow In DataTables("交货日期").DataRows
   Tables("MRP表").DataTable.DataCols.Add(dr("交货日期"), Gettype(String))
Next

Dim sql As String = "s elect a.*,(s elect * from {MRP表}),(s elect sum(产品毛需求) from {周出货计划} b where a.[新增的列]=b.[交货日期] And a.[芯片规格]=b.[芯片规格]) As [新增的列] from {MRP表}) a"
Dim q As new QueryBuilder
q.TableName = "统计2"
q.S electString = sql
q.Build

老师,红色部分怎么写?现在步骤是1:筛选出日期,2:将日期新增到MRP表,3:统计周出货计划表中的某一日某一规格的总数,将总数填到MRP表中
现在问题是周出货计划的日期列要对应MRP表中的日期列,但是是1对多,请问如何实现?

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/7 8:43:00 [只看该作者]

没有办法这样用,具体上传例子,看有没有其它办法处理

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2017/1/7 9:58:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


老师,例子。
现在做到第三步统计新增了列。接下来需要将MRP表与出货计划表进行统计,将同日期同芯片规格进行毛需求汇总填入MRP表里。

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/7 10:57:00 [只看该作者]

MRP表没有日期,通过什么列和进货日期进行关联?

每日看懂你的逻辑,截图说明最后需要什么结果

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2017/1/7 11:27:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图2.png
图片点击可在新窗口打开查看

根据日期,料号和芯片规格将下图的数据统计到MRP表中最后形成上图的样子。
因为日期为变的,所以现在只是增加列,但是无法对应进去,请问如何实现?

[此贴子已经被作者于2017/1/7 11:28:22编辑过]

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/7 11:42:00 [只看该作者]

直接做交叉统计

Dim g As New CrossTableBuilder("统计表1", DataTables("周出货计划"))
g.HGroups.AddDef("芯片规格")
g.HGroups.AddDef("客户名称")
g.HGroups.AddDef("客户料号")
g.VGroups.AddDef("交货日期")
g.Totals.AddDef("产品毛需求", "产品毛需求")
g.Build()
MainTable = Tables("统计表1")


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


 回到顶部
总数 21 1 2 3 下一页