搞不定，上例子：

If dlg.ShowDialog =DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
   
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("成绩录入表").ResumeRedraw()
    Tables("成绩录入表").StopRedraw()
    Dim nms() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","是否合格","理论考否","考试性质","年月","场次","考场","座位号","考试时间","考试地点","准考证号码",……"备注","照片"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim sfzhm As String = sheet(n,4).Text
        Dim dr As DataRow = DataTables("成绩录入表").Find("身份证号码 = \'" & sfzhm & "\'")
        If dr Is Nothing Then \'如果不存在同编号的订单
            dr =  DataTables("成绩录入表").AddNew()
        End If
        For m As Integer = 0 To nms.Length - 1
            If DataTables("成绩录入表").DataCols(nms(m)).IsBoolean Then
                If Sheet(n,m).Value = 0 Then
                    dr(nms(m)) = False
                Else
                    dr(nms(m)) = True
                End If
            Else If DataTables("成绩录入表").DataCols(nms(m)).Expression > "" Then
                \'表达式列
            Else
                dr(nms(m)) = Sheet(n,m).Value
            End If
        Next
    Next
    Tables("成绩录入表").ResumeRedraw()
End If

下面这句代码中还有很多列没写入：

Dim nms() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","是否合格","理论考否","考试性质","年月","场次","考场","座位号","考试时间","考试地点","准考证号码",……"备注","照片"}