主题：[求助]1.排名错误：无法找到 2.填充对应班级的教师姓名

2、单独执行代码

Dim t As Table = Tables("基础科统计")
For Each r As Row In t.Rows
    Dim fdr As DataRow = DataTables("任课教师").find("班级='" & r("班级") & "'")
    If fdr IsNot Nothing Then
        For Each c As Col In t.Cols
            If c.DataCol.Expression = Nothing Then
                For Each dc As DataCol In fdr.DataTable.DataCols
                    If c.Caption.Contains(dc.name) Then
                        r(c) = fdr(dc.name)
                        Exit For
                    End If
                Next
            End If
        Next
    End If
Next

那如果我在统计表最左边加上一个学期，要取学期和班级一致，才填充相应学科怎么处理呢？