主题：继续讨教优化

色大王大师：见实例，请问如何提高效率？假如我要对表数据进行修改，只是一段就要10秒，那岂不是太慢了。有劳指点优化！

实例

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

点击浏览该文件:管理项目9.rar

如果是这种速度，不跳楼才怪！

 没办法的，取值就至少需要10秒，赋值也需要时间

 

Dim st As Date = Date.Now

Dim ls As List(Of String) = DataTables("凭证").GetValues("凭证类别与编号")
Dim dic As new Dictionary(Of String, String)
For i As Integer = 0 To ls.count-1
    Dim str As String = DataTables("凭证").GetComboListString("科目编码","凭证类别与编号 = '" & ls(i) & "'")
    dic.add(ls(i), str)
Next
msgbox("耗时: " & (Date.Now - st).TotalSeconds & "秒")
For i As Integer = 0 To 3000
    Dim dr As DataRow = DataTables("凭证").DataRows(i)
    If dr.IsNull("借方金额") = False  Then
        dr("部门编码") = dic(dr("凭证类别与编号"))
    End If
Next
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

 如果想继续优化，你可以自己去实现 GetComboListString 的功能。

 

 也就是，循环一次整个表，得到字典 dic ，具体自己去探索，类似 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76545&replyID=529794&skin=1

 

如果10万行数据的表，分析、规范填列这张表，不是要半天吗？为什么求一个集合这么吗？

 认认真真看4楼和5楼，自力更生。

水平不够，跟不上呀。能看懂就不错了。已经提高几倍了，5楼的看不懂。