如何将"课程表"中的科目根据"教师安排表"转化为相应科目班级老师的姓名? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

加一个判断，下面红字是新加的

Dim s As String = "语数英物化政历地体美"
Dim t As Table = Tables("教师安排表")

For Each r As Row In t.Rows
    Dim Filter As String = "[年级] = '" & r("班级") & "'"
    Dim dr As DataRow
    dr = DataTables("课程表").Find(Filter)
    If dr IsNot Nothing Then
        For Each dc As DataCol In DataTables("课程表").DataCols
            If dc.Name <> "年级" AndAlso Not dr.IsNull(dc.Name) AndAlso s.IndexOf(dr(dc.Name)) > -1 then
                dr(dc.Name ) = r(dr(dc.Name ))
            End If
        Next
    End If
Next

主题：如何将"课程表"中的科目根据"教师安排表"转化为相应科目班级老师的姓名?