导入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2935人关注过本帖树形打印复制链接主题：导入问题

扶风

小大 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()

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))

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

加好友

发短信

等级：超级版主帖子：110816 积分：564024 威望：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

加好友

发短信

等级：超级版主帖子：110816 积分：564024 威望：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

加好友

发短信

等级：超级版主帖子：110816 积分：564024 威望：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 下一页

主题：导入问题