以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Merger用于合并数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189092)

--  作者:133198609
--  发布时间:2023/11/9 22:10:00
--  Merger用于合并数据
设置了一个合并数据的按钮,在导入表格的是,会出现很多列的数据丢失的情况,比如有十列,导入后其中几列的数据是空白的。
导入的表格也是从里面先导出来再加入的数据,而且数据格式常规的,丢失是中间几列的数据。

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

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

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

    Dim ip As New Merger

    ip.SourcePath = dlg.FileName \'指定数据文件

    ip.Format = "excel"

    ip.SourceTableName = "工资明细表$" \'指定要导入的表

    ip.DataTableName ="职工工资发放明细表" \'导入后的表名

    ip.Merge()

MessageBox.Show("数据导入结束!")

End If



--  作者:有点蓝
--  发布时间:2023/11/9 22:21:00
--  
同一列数据既有数值型数据,又有字符型数据的只能导入其中一种,可以导入那种看第一行是什么类型。这个是execl组件本身的问题



--  作者:133198609
--  发布时间:2023/11/10 8:07:00
--  
第一行的列名不算吧
--  作者:有点蓝
--  发布时间:2023/11/10 8:33:00
--  
列名不算
--  作者:133198609
--  发布时间:2023/11/10 9:30:00
--  
经测试,确实如此。是有空值的数据,可能系统识别成文本了。填上0值就好了。
--  作者:133198609
--  发布时间:2023/11/10 9:31:00
--  
多谢多谢