以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  导入数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161500)

--  作者：表叔 --  发布时间：2021/3/19 11:06:00 --  导入数据 Dim id As Integer = DataTables("工资数据输入表").Compute("max(_Identify)") Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮     Dim mg As New Merger     mg.SourcePath = dlg.FileName     mg.Format = "excel"     Dim book As new XLS.Book(dlg.fileName)     mg.SourceTableName = book.Sheets(0).name & "$"     mg.DataTableName = "工资数据输入表"     mg.Merge() End If DataTables("工资数据输入表").AddNew Dim GzDate As Date = e.Form.Controls("DateTimePicker1").Value If GzDate <> Nothing Then     DataTables("工资数据输入表").ReplaceFor("工资发放月份",GzDate,"_Identify > " & id) End If Dim ssq As String = e.Form.Controls("TextBox1").Value If ssq IsNot Nothing Then     DataTables("工资数据输入表").ReplaceFor("申报所属期",ssq,"_Identify > " & id) End If DataTables("工资数据输入表").DeleteFor("身份证号码 Is Null") e.Form.Close() 这是导入数据的代码，接受的狐表中有2层表头，但双层表头的数据导不进来，其他的可以 输入表的表头也做成了对应的2层表头，还是不行，2层表头名称：奖金_项目奖、奖金_出勤奖

--  作者：有点蓝 --  发布时间：2021/3/19 11:12:00 --   Merger不支持多层表头的execl文件导入。改为这种方式：http://www.foxtable.com/webhelp/topics/2334.htm