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

 

在生成“课时名单”设计中，希望“性质”列的值是“周六下午”改为“补课”，“周六晚上”改为“辅导”，“周日上午”改为“守班”，“周日下午”改为“补课”。如何对下列Tables("课时名单").Rows(i)("性质") = Values(1)中的Values(1)进行控制？原设计代码如下：
 

'生成"课时名单"表

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

    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 Tables("课时名单").rows.count -1

            Tables("课时名单").Rows(i)("星期") = Values(0)

            Tables("课时名单").Rows(i)("性质") = Values(1)

            Tables("课时名单").Rows(i)("计分") = 1

        Next

    end if

Next

DataTables("课时名单").DeleteFor("[姓名] Is Null")

Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)
（注：不想生成“课时名单”后，再遍历替换）

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

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

用iif语句试了几次失败了，我再思考一下。

真没想到select case语句，谢谢两位！

我却选择 iif 语句镶嵌，也难怪.

呵呵,知识没有学活,目前我只能韩郸学步,谢谢老师指点!

顺便请教一下老师：DataTables("课时名单").DeleteFor("[姓名] Is Null") 这句语句显得不太友好----填充后强行删除，请问：如何才能实现排除空值再填充？

谢谢指点！

谢谢！这只是当时为方便说明代码临时使用的一个文件，现设计已改过来了。