主题：还是关于导入的问题

 代码

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet As XLS.Sheet = book.Sheets(0)
    For i As Integer = 1 To sheet.Rows.Count - 1
        For j As Integer = 1 To sheet.Cols.Count - 1
            Dim ndr As DataRow = DataTables("表a").AddNew
            ndr("客户编号") = sheet(i, 0).Text
            ndr("年度") = sheet(0, j).Text
            ndr("欠费金额") = sheet(i, j).Text
        Next
    Next
End If