主题：导入excel文件，fields出错

老师：数据导入不报警，数据行增加了，但数据为空，是什么原因？谢谢

多层表头，第一行是空的

老师：关于这类帮助在哪儿可以查到，谢谢

老师：多层表头第一行是空的，哪我是要把excel中的插入一个空行，还是要把第一行删除？谢谢

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim t As Table = Tables("科目余额表")
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    t.StopRedraw()
    Dim dic As new Dictionary(of String, String)
    For Each c As Col In t.Cols
        dic.Add(c.Caption, c.name)
    Next
    Dim nms() As String = {"科目编码", "科目名称", "科目或项目"}
    For n As Integer = 2 To Sheet.Rows.Count -1
        Dim r As Row = t.AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(dic(nms(m))) = Sheet(n,m).Value
        Next
    Next
    t.ResumeRedraw()
    t.ResumeRedraw()
End If