Dim Book As New XLS.Book("F:\H\问题测试\课程表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("课程表").StopRedraw()
Dim dr As Row
For n As Integer = 2 To Sheet.Rows.Count -1
Dim bj As String = Sheet(n,0).Value
Dim jc As String = Sheet(n,1).Value
For m As Integer = 2 To 6
dr = Tables("课程表").AddNew
dr("班级") = bj
dr("节次") = jc
dr("星期") = m-1
dr("科目") = Sheet(n,m).Value
Next
Next
Dim kms() As String = {"语文","数学","英语","政治","历史"} '其它科目自己添加
Sheet = Book.Sheets(1)
Dim drs As List(of DataRow)
For n As Integer = 3 To Sheet.Rows.Count -1
Dim bj As String = Sheet(n,0).Value
For m As Integer = 0 To kms.Length - 1
If Sheet(n,m+2).Value > "" Then
drs = DataTables("课程表").Select("班级 = '" & bj & "' and 科目 = '" & kms(m) & "'")
For Each r As DataRow In drs
r("任课教师") = Sheet(n,m+2).Value
Next
End If
Next
Next
Tables("课程表").ResumeRedraw()
加好友 
发短信
Post By：2016/9/21 16:29:00 [显示全部帖子]
