[求助][求助]如何把“任课表”中各班的班任和科任的姓名导入“学籍表”中相应单元格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("学籍表").StopRedraw()
    Dim nms() As String = {"正班任","政治科任","数学科任","英语科任","化学科任","语文科任","物理科任"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim bh As String = sheet(n,0).Text
        Dim drs As List(Of DataRow) = DataTables("学籍表").Select("班级 = '" & bh & "'")
        For Each dr As DataRow In drs
            For m As Integer = 0 To nms.Length - 1
                dr(nms(m)) = Sheet(n,m).Value
            Next
        Next
    Next
    Tables("学籍表").ResumeRedraw()
End If

主题：[求助][求助]如何把“任课表”中各班的班任和科任的姓名导入“学籍表”中相应单元格