Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("课程表").StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bj As String = Sheet(n,2).Value
Dim jc As String = Sheet(n,3).Value
Dim mc As String = sheet(n,0).value
Dim dm As String = sheet(n,1).value
For m As Integer = 4 To 8
Dim dr As DataRow = DataTables("课程表").Find("班级 = '" & bj & "'and 星期 = '" & cstr(m-3) & "' and 节次 = '" & jc & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("课程表").AddNew()
End If
dr("学校名称") = mc
dr("学校代码") = dm
dr("班级") = bj
dr("节次") = jc
dr("星期") = cstr(m-3)
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+1).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()
End If
请问为什么任课教师中物理，体育导不进，其他能导入，请问哪里出事了，怎么改，谢谢
加好友 
发短信
Post By：2016/9/22 11:27:00 [只看该作者]
