主题：继续讨教优化

 没办法的，取值就至少需要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

 

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

 你循环的次数越多，执行select查询的次数越多，就越慢的。

 

 所以，建议你直接循环表格，去实现比较区分，减少使用查询，最后得到你要结果，这样才行。类似筛选重复那样做。

 你要做这种操作，数据量越大肯定越耗时，数据量越大越考验算法。