共4 条记录, 每页显示 10 条, 页签: [1]

标题：请求指点，代码优化

1楼

sunnykorla 发表于：2011/12/9 18:08:00

原代码：

CurrentTable.DataTable.DataCols.Add("存在",Gettype(String),255)
For Each dr1 As DataRow In CurrentTable.DataTable.DataRows
    Dim dr2 As DataRow = DataTables("hushu").Find("NSRSBH = '" & dr1("NSRSBH") & "'")
    If dr2 IsNot Nothing Then
        dr1("存在") = dr2("NSRMC")
    End If
Next

自己优化后代码：

CurrentTable.DataTable.DataCols.Add("存在",Gettype(String),255)
Dim lst1 As New List(of DataRow)
For Each dr1 As DataRow In CurrentTable.DataTable.DataRows
    Dim dr2 As DataRow = DataTables("hushu").Find("NSRSBH = '" & dr1("NSRSBH") & "'")
    If dr2 IsNot Nothing Then
        'dr1("存在") = dr2("NSRMC")
        lst1.Add(dr2)
    End If
Next
For Each dr1 As DataRow In CurrentTable.DataTable.DataRows
    For Each dr As DataRow In lst1
        dr1("存在") = dr("NSRMC")
    Next
Next

优化前17万行数据运行102秒，优化后基本无法运行。请求指点！

2楼

狐狸爸爸 发表于：2011/12/9 18:10:00

CurrentTable.DataTable.DataCols.Add("存在",Gettype(String),255)
Dim lst1 As New List(of DataRow)
For Each dr1 As DataRow In CurrentTable.DataTable.DataRows
    Dim dr2 As DataRow = DataTables("hushu").Find("NSRSBH = '" & dr1("NSRSBH") & "'")
    If dr2 IsNot Nothing Then
        'dr1("存在") = dr2("NSRMC")
        lst1.Add(dr2)
    End If
Next
For Each dr As DataRow In lst1
    dr1("存在") = dr("NSRMC")
Next

3楼

sunnykorla 发表于：2011/12/12 15:37:00

好像不行！

此主题相关图片如下：捕获.jpg

[此贴子已经被作者于2011-12-12 15:37:42编辑过]

4楼

狐狸爸爸 发表于：2011/12/12 15:53:00

CurrentTable.DataTable.DataCols.Add("存在",Gettype(String),255)
Dim lst1 As New Dictionary(of DataRow,DataRow)
For Each dr1 As DataRow In CurrentTable.DataTable.DataRows
    Dim dr2 As DataRow = DataTables("hushu").Find("NSRSBH = '" & dr1("NSRSBH") & "'")
    If dr2 IsNot Nothing Then
        lst1.Add(dr1,dr2)
    End If
Next
For Each dr1 As DataRow In lst1.Keys
    dr1("存在") = lst1(dr1)("NSRMC")
Next

共4 条记录, 每页显示 10 条, 页签: [1]