主题：excel表格导入的多层列名问题

请教下，excel表格设置了多层列名，一旦导入就消失了，请问该如何处理呢?
此主题相关图片如下：exceljietu.jpg


此主题相关图片如下：daoruhou.jpg

用代码生成表格

 

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet1 As XLS.Sheet = Book.Sheets(0)
    Dim Builder As New ADOXBuilder
    Builder.Open()
    Dim tbl = Builder.NewTable("测试") '创建表
    For c As Integer = 0 To sheet1.Cols.count-1
        Dim cname As String = sheet1(0,c).text & iif(sheet1(1,c).text="", "", "_" & sheet1(1,c).text)
        'msgbox(cname)
       
        With tbl
            .AddColumn(cname.replace("*", "乘"),ADOXType.String)
        End With
    Next
    Builder.AddTable(tbl) '增加表
    Builder.Close()
    DataTables.load("测试") 
End If

不然，你就只能先把excel的表头处理成一层的列名，再导入。

下午试试

已经成功，谢谢；）就用Excel把按照加_的格式做好表头导入就可以，很简单。