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

原 附件在 http://www.foxtable.com/dispbbs.asp?boardid=2&Id=5469 中，只是顺序有所不同：
DataTables("课时名单").DataRows.Clear()
dim x as string
for i as integer = 1 to tables("课程表").cols.count -1
    x = x & "|" & tables("课程表").cols(i).name
    dim f As New Filler
    f.SourceTable = DataTables("课程表") '指定数据来源
    f.SourceCols = "" & tables("课程表").cols(i).name & "" '指定数据来源列
    f.DataTable = DataTables("课时名单") '指定数据接收表
    f.DataCols = "姓名" '指定数据接收列
    f.Distinct = false
    f.Fill() '填充数据
next
x=x.trim("|")
dim n as integer = tables("课程表").cols.count /x.split("|").length
for xi as integer = 0 to x.split("|").length-1
    for ii as integer = xi*tables("课程表").rows.count to xi*tables("课程表").rows.count+tables("课程表").rows.count-1
        tables("课时名单").rows(ii)("星期") = x.split("|")(xi).split("_")(0)
        tables("课时名单").rows(ii)("计分") = 1
    next
next
Messagebox.Show("处理完毕!")

原代码主要是慢在：
...................
                Dim drmd As DataRow
                drmd = DataTables("课时名单").DataRows.AddNew()    ‘今后增加行数多时，尽量少用addnew！～
........................
只要代码合理，老爷机不是问题～  估计c版的机子会在1秒以内的。

用充填 配合 在被充填表中 for。。。next 计算比较快～ 

这个有效果，但是用原有c版的代码也要5、6秒时间，和俺1楼代码比，还是有2、3倍的差距呀～ 

看7楼的方法！  好像没那么严重吧，1楼的连接附件增加九千多条，用上Redraw后也就5、6秒啊！ 11楼狐爸的就更快了——瞬间！ 

做个例子上来看看～  

哈哈~   还是c 版的代码巧妙啊，这一段：
    For i As integer = (n*n1)-n to Tables("课时名单").rows.count -1
        Tables("课时名单").Rows(i)("星期") = Values(0)
        Tables("课时名单").Rows(i)("计分") = 1
    Next
我一直想放在它外层的 For  .......Next 里面去，老是没实现，只好搁在它外面了。 

还是把C版的15楼的代码加两处注解（我也在学说的不一定好）：
Dim s As Date = Date.Now()           
DataTables("课时名单").DataRows.Clear()          
Dim AValue() 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
'上面这一段,是在课时名单表中,对每填充的课时表一列的对应的 星期 计分 两列进行计算并赋值....  注意这个(n*n1)-n 始终是从本次填充的第一行(也就是当前课时名单表现在的倒数第Tables("课时名单").rows.count行开始循环...
Next
Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)

哈哈~  这一条多余了,可以删除的:  【dim n as integer = tables("课程表").cols.count /x.split("|").length】

其他：：：：：：：
x.split("|").length    是课程表需要用来充填的列数（共60列吧）~  每一列都要充填一次到课时名单表的.
tables("课程表").rows.count   不就是课程表的行数(99行)吗. 所以：
 xi*tables("课程表").rows.count to xi*tables("课程表").rows.count+tables("课程表").rows.count-1  表示每一次都从这一行开始到由此计算99行为止（既：1-99行、100-198行、199-297行.......）

不知我说明白了没有啊～