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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将"课程表"中的科目根据"教师安排表"转化为相应科目班级老师的姓名?

共有24109人关注过本帖树形打印复制链接主题：如何将"课程表"中的科目根据"教师安排表"转化为相应科目班级老师的姓名?

lxl

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/10/13 16:59:00 [只看该作者]

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

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