|
也可以：
Dim Values() As String
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()
Values = dckc.name.split("_")
drmd("星期") = Values(0)
drmd("姓名") = drkc(dckc)
drmd("计分") = 1
end if
end if
next
next
Messagebox.Show("处理完毕!")
| 
加好友 
发短信
Post By：2009/12/13 21:19:00 [只看该作者]
