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

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

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

扶风

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

加好友

发短信

等级：一尾狐帖子：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

请问如何实现？

扶风

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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对多，请问如何实现？

扶风

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2017/1/7 9:58:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

老师，例子。

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

扶风

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

扶风

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2017/1/7 16:33:00 [显示全部帖子]

老师，这个好像只是统计了周计划表，MRP表没统计进去啊？

目标是MRP表全部有，额外增加日期列统计，如何实现？

另交叉统计的那张图是在哪边可以看到？

[此贴子已经被作者于2017/1/7 16:33:04编辑过]

扶风

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2017/1/11 18:41:00 [显示全部帖子]

老师，查询其他表后生成1张临时表，请问如何再次查询这张生成的临时表？可能第一次查询出来需要做处理然后第二次查询再做处理，现在不能直接查询临时表，就不能做第二次处理了，请问如何解决？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档 (2).txt

老师，文本文档中是查询了形成了一个临时表，如何能直接查询“”周计划需求“”这一列然后处理后直接将这列内容填进内部数据表（MRP表）呢？

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

扶风

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2017/1/13 9:09:00 [显示全部帖子]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

'dlg.Filter= "Excel文件|*.xlsx" '设置筛选器

dlg.Filter= "Excel文件|*.*" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim mg As New Merger

' mg.Format = "Excel2007"

mg.Format = "Excel"

mg.SourcePath = dlg.FileName

mg.SourceTableName = "1周$"

mg.DataTableName = "周出货计划"

mg.Merge()

End If

For Each dt As DataTable In DataTables

dt.Save()

1.老师，如上如何将表格的空行不导入，现在空行也会导入。

dim f As New Filler

f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Fill()

1.老师，现在我想将一个临时表的列A整个按顺序填充到内部数据表MRP表列B中，但如上的方法是直接在最下面另起行填充，并没直接在原有数据中填充，请问如何解决？