改一下。
If drb.text = "记录表A" Then
Dim Book As New XLS.Book(""& dlg.FileName &"")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("记录表A").StopRedraw()
Dim nms() As String = { "编号","姓名","中小学","学校","场地","","成绩分数","成绩输入1","成绩输入2","成绩输入4","成绩输入5","奖项","参赛项目" }
'在“成绩分数”之前有一列“成绩时间”为表达式列，被省略
For n As Integer = 2 To Sheet.Rows.Count -2
Dim r As Row = Tables("记录表A").AddNew()
For m As Integer = 0 To nms.Length - 2
If nms(m) <> "" Then
r(nms(m)) = Sheet(n,m).Value
End If
Next
Next
Tables("记录表A").ResumeRedraw()
End If
加好友 
发短信
Post By：2013/2/23 12:01:00 [只看该作者]
