主题：如何直接实现下列设计？

应该很简单吧，自己再想想。

'生成"课时名单"表
Dim s As Date = Date.Now()
Dim ksmd As New DataTableBuilder("课时名单")
ksmd.AddDef("姓名", GetType(String), 15)
ksmd.AddDef("性质", GetType(String), 15)
ksmd.AddDef("星期", GetType(String), 15)
ksmd.AddDef("计分", GetType(Integer))
ksmd.Build()
'生成"课时名单"数据
Dim Values() As String
Dim n As Integer = Tables("补课").rows.count
Dim n1 As Integer
for Each dc as Datacol in DataTables("补课").Datacols
    Dim T As Table = Tables("课时名单")
    if dc.name <> "班级" Then
        n1 = n1 +1
        dim f As New Filler
        f.SourceTable = DataTables("补课") '指定数据来源
        f.SourceCols = dc.name '指定数据来源列
        f.DataTable = DataTables("课时名单") '指定数据接收表
        f.DataCols = "姓名" '指定数据接收列
        f.ExcludeNullValue=true
        f.Distinct = false
        f.Fill() '填充数据
        Values = dc.name.split("_")
        For i As integer = (n*n1)-n to T.rows.count -1
            T.Rows(i)("星期") = Values(0)
            Select Case Values(1)
                Case "周六下午","周日下午"
                    Values(1) = "补课"
                Case "周六晚上"
                    Values(1) = "辅导"
                Case "周日上午"
                    Values(1) = "守班"
            End Select
            T.Rows(i)("性质") = Values(1)
            T.Rows(i)("计分") = 1
        Next
    end if
Next
DataTables("课时名单").DeleteFor("[姓名] Is Null")
Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)

其实用if也简单的

if Values(1) = "周六下午" Then
Values(1) = "补课"
End If

如此反复就可以了。

呵呵，我不认为是iif的问题，iif同样可以完成，如：

Values(1) = iif(Values(1)="周六下午","补课",iif(Values(1)= "周日下午","补课",iif(Values(1)="周六晚上","辅导",iif(Values(1)="周日上午","守班",Values(1)))))

填充时设置Filter条件即可。

你的列名称怎么可以用“第四轮_周日下午_6-1”这样的方式。
导入数据后请及时修改列名称，否则会给以后的工作带来麻烦的。

因你的列名称不规范，所以下面的Filter条件只能这样设置，否则出错：

Dim s As Date = Date.Now()
Dim ksmd As New DataTableBuilder("课时名单")
ksmd.AddDef("姓名", GetType(String), 15)
ksmd.AddDef("性质", GetType(String), 15)
ksmd.AddDef("星期", GetType(String), 15)
ksmd.AddDef("计分", GetType(Integer))
ksmd.Build()
'生成"课时名单"数据
Dim Values() As String
Dim n As Integer = Tables("补课").rows.count
Dim n1 As Integer
for Each dc as Datacol in DataTables("补课").Datacols
    Dim T As Table = Tables("课时名单")
    if dc.name <> "班级" Then
        n1 = n1 +1
        dim f As New Filler
        f.SourceTable = DataTables("补课") '指定数据来源
        f.SourceCols = dc.name '指定数据来源列
        f.DataTable = DataTables("课时名单") '指定数据接收表
        f.DataCols = "姓名" '指定数据接收列
        f.ExcludeNullValue=true
        f.Filter = "[" & dc.name & "] Is Not Null"
        f.Distinct = false
        f.Fill() '填充数据
        Values = dc.name.split("_")
        For i As integer = (n*n1)-n to T.rows.count -1
            T.Rows(i)("星期") = Values(0)
            Select Case Values(1)
                Case "周六下午","周日下午"
                    Values(1) = "补课"
                Case "周六晚上"
                    Values(1) = "辅导"
                Case "周日上午"
                    Values(1) = "守班"
            End Select
            T.Rows(i)("性质") = Values(1)
            T.Rows(i)("计分") = 1
        Next
    end if
Next
Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)

因为设置了Filter条件，楼上这行代码可以删除：f.ExcludeNullValue=true