- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 合并数据公式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60300)
-- 发布时间：2014/11/22 1:33:00
-- [求助] 合并数据公式
如下图所示，前面 ‘Itellin用户数据表’ 窗口中有一个 “导入数据”按钮；该按钮写有命令：Syscmd.Table.QuickMerge() ;本来是想将数据合并到该表中去的；但是有时由于没有注意在点击“导入数据”按钮前 鼠标点击过该窗口后面的数据表，那么当我进行数据导入时就会把数据都导入到后面的表里面去啦。我该怎么做才能确保数据一定会合并到前面的表中；换句话说就是有没有命令可以指定将数据合并的指定表中去？同时又是采用选择文件的方式进行操作的。
此主题相关图片如下：360截图20141122012517437.jpg
此主题相关图片如下：360截图20141122013341578.jpg
-- 发布时间：2014/11/22 9:30:00
--
http://www.foxtable.com/help/topics/0685.htm
-- 发布时间：2014/11/22 20:25:00
--
在导入按钮中写有：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" \'指定格式
mg.SourceTableName = "Sheet1$" （准备导入的Excel文件中有Sheet1这个表）
mg.DataTableName = "Itellin用户数据表"
mg.Merge()
End If
效果如下：命令是哪里错了？
此主题相关图片如下：360截图20141122202607921.jpg
此主题相关图片如下：360截图20141122202641375.jpg
[此贴子已经被作者于2014-11-22 20:26:26编辑过]
-- 发布时间：2014/11/23 9:30:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" \'指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "Sheet1$"
mg.DataTableName = "Itellin用户数据表"
mg.Merge()
End If
-- 发布时间：2014/11/24 7:57:00
--
导出数据按钮命令写有：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "Itellin用户数据表" \'指定导出表
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出
End If
使用时提示如下图；我的命令需要怎么修改？
此主题相关图片如下：360截图20141124075812519.jpg
[此贴子已经被作者于2014-11-24 7:58:20编辑过]
-- 发布时间：2014/11/24 9:13:00
--
Dim dlg As New SaveFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "Itellin用户数据表" \'指定导出表
ex.NewTableName = "excel表"
ex.FilePath = dlg.FileName
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出
End If
-- 发布时间：2014/11/25 20:37:00
--
我的数据表某列有以下内容；为什么前面2条记录合并、而后面2条记录就合并不到表里？（该列为 字符型 或 备注型 都是一样）
18998754696
18998769211
hyd002808396
hyd002811112
此主题相关图片如下：360截图20141125203640000.jpg
合并按钮命令如下：
Dim dlg As New OpenFileDialog \'定义一个新的
OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" \'指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "Sheet1$"
mg.DataTableName = "Itellin用户数据表"
mg.Merge()
End If
[此贴子已经被作者于2014-11-25 20:40:42编辑过]
-- 发布时间：2014/11/25 20:42:00
--
你这种，需要编写代码才能合并，因为数据格式不一致
http://www.foxtable.com/help/topics/2334.htm
-- 发布时间：2014/11/26 9:16:00
--
如果是这样的话、是不是就只能固定一个目录文件和文件格式，而不能像5楼那样打开一个文件选择窗口进行选择？
-- 发布时间：2014/11/26 9:17:00
--
一样可以啊，你定义一个OpenFileDialog就行