主题：[求助]转换遇到问题

在将"课程表"转换为"课时名单"时,不希望将"1班","2班",....."99班"转换到"姓名"列中,"星期"列不只显示星期几不想显示第几节(如:希望星期列中出现"星期一","星期二",.....,不希望出现"星期一_1","星期二_2",........,请问下列代码如何修改?谢谢
dim h as integer =0
DataTables("课时名单").DataRows.Clear()
For Each drkc As DataRow In DataTables("课程表").DataRows
    for Each dckc as Datacol in DataTables("课程表").Datacols
        if drkc(dckc) isnot nothing  then                                      
                   if drkc(dckc) <> "" then
                       Dim drmd As DataRow
                       h=h+1
                       drmd = DataTables("课时名单").DataRows.AddNew()
                       drmd("星期") = dckc.name
                       drmd("姓名") = drkc(dckc)
                       drmd("计分") = 1
                   end if   
          end if
     next
next
Messagebox.Show("处理完毕!")

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

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