abcdzabcdz 的【转换遇到问题】速度由30多秒（我的老爷机）提高到2秒以内 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

学一个。
在楼主的基础上再减0.1~0.2秒。

Dim s As Date = Date.Now()
DataTables("课时名单").DataRows.Clear()
Dim Values() As String
Dim n As Integer = Tables("课程表").rows.count
Dim n1 As Integer
for Each dc as Datacol in DataTables("课程表").Datacols
    n1 = n1 +1
    dim f As New Filler
    f.SourceTable = DataTables("课程表") '指定数据来源
    f.SourceCols = dc.name '指定数据来源列
    f.DataTable = DataTables("课时名单") '指定数据接收表
    f.DataCols = "姓名" '指定数据接收列
    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)("计分") = 1
    Next
Next
Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)

主题：abcdzabcdz 的【转换遇到问题】速度由30多秒（我的老爷机）提高到2秒以内