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

你的表结构是电子表格似的结构，所以导致系统非常不灵活。
各种统计都不容易实现，代码也复杂。
如果表结构合理，解决这类问题可以不用代码。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:科目名称与姓名转换统计表.table

忘记说了，我为了简化代码，把教师安排表 的列名用标题代替了。

这种结构无法做成复杂的系统,
参考下这种结构:

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:科目名称与姓名转换统计表.table

可以进行任何统计:
   比如每个教师 一周上几节课
   打印成各种形式的课程表(老师自己看的,还是学生看的)
   统计课程到底分布在哪写课时(一般重要的课都分在上午一 二节)

表达式列用单引号 表示字符传
利用关联和表达式的思路是正确的,你看看楼上的文件.

几行代码就能生成看起来方便的表或者报表
因为全是原始数据,你要什么结构,他就能像变形金刚一样给你变出来:)

恩 ,我也开始也想用交叉统计表生成器,直接生成课程表.一看统计类型实现不了
只能自己写代码了.等会我忙完手里的实验,我试试.
我已经想到几个比较常用的表:

每个老师自己的课程表(老师自己看的,什么时候该去上课了)
每个班级自己的学生课程表(就是学生看该上什么课的课程表)
还有全部老师姓名课程表和全部课程表(管排课的人看的)

这里面东西比较多,不过都是教程上面讲过的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

像其他统计 一周几节语文 几节数学、各个科目的课时分布图、各个老师一周有几节课等等等，都是一句非常简单的SQL语句就能查询出来的。

还能生成报表（和贴到墙上一样的格式），直接打印。


数据录入也不用担心，可以直观的录入。
课程表720行数据，我也不是一行一行添加的，是你1楼文件转换的。

呵呵，最近不太稳定。

你说的“列值为空”指的哪一列？

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

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