Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
Tables("成绩表").StopRedraw()
For Each fn As String In dlg.FileNames
Dim Book As New XLS.Book(fn)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim nms() As String = {"姓名","选课","成绩","学分","备注"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
Dim xk As String = sheet(n,1).Text
Dim dr As DataRow = DataTables("成绩表").Find("姓名 = '" & bh & "' and 选课='" & xk & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("成绩表").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n,m).Value
Next
Next
Next
Tables("成绩表").ResumeRedraw()
End If
加好友 
发短信
Post By：2016/10/6 15:22:00 [只看该作者]
