- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 【求助】表的结构自动变化 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93070)
-- 发布时间：2016/11/19 22:15:00
-- 【求助】表的结构自动变化
| DF | DFF | FSFD | FSF | SFDF |
| 张三 | 男 | 23 | 13112346578 | 广东省 |
| 李四 | 男 | 32 | 13523562345 | 湛江市 |
| 姓名 | 性别 | 年龄 | 电话 | 地址 | 邮箱 | 学历 | 爱好 | 备注 |
| 张三 | 男 | 23 | 13112346578 | 广东省 | ||||
| 李四 | 男 | 32 | 13523562345 | 湛江市 |
请问各位大神，怎么将上面的第一张excel格式的表导入foxtable后自动变成第二张这种样式，小弟急需解决方法，希望大神们可以赐教，先谢谢啦？？
-- 发布时间：2016/11/19 22:32:00
--
先把你的excel文件的列标题改成和狐表一样的名字
Dim mg As New
Merger
mg.SourcePath = "c:\\excel文件名.xls"
mg.Format = "excel"
\'指定格式
mg.SourceTableName = "狐表名"
\'指定要合并的表
mg.DataTableName = "狐表名"
\'指定接收数据的表
mg.Merge() \'开始合并
-- 发布时间：2016/11/19 22:42:00
--
我就是不想一个个的改，如果我有很多张这种表的话，每张表都要去改一次那不得疯掉
-- 发布时间：2016/11/20 9:35:00
--
方法一：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Execl文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName \'指定数据文件
mg.SourceTableName = "sheet1$" \'指定要导入的表
mg.DataTableName="订单"
mg.Format ="Excel"
mg.FieldMaps.Add("型号","类型")
mg.FieldMaps.Add("数量","数量")
mg.Merge() \'开始合并
End If
dlg.Filter= "Execl文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName \'指定数据文件
mg.SourceTableName = "sheet1$" \'指定要导入的表
mg.DataTableName="订单"
mg.Format ="Excel"
mg.FieldMaps.Add("型号","类型")
mg.FieldMaps.Add("数量","数量")
mg.Merge() \'开始合并
End If