主题：[求助]求代码优化

理解不了你的逻辑，最好做个例子并详细说明

用这个吧，我的电脑（配置低）不超过11秒

 

Dim t1 As Date = Date.Now
Dim cmd As New SQLCommand
cmd.Cu pdate {总人口信息} set 户主姓名 = null WHERE 与户主关系 = '户主'"
cmd.ExecuteNonQuery()
DataTables("总人口信息").load
cmd.CommandText = "u pdate {总人口信息} set 户主姓名 = 姓名 WHERE 与户主关系 = '户主'"
cmd.ExecuteNonQuery()
DataTables("总人口信息").load
'Tables("总人口信息").sort = "户号,户主姓名 desc"
'
Dim drs As List(of DataRow) = DataTables("总人口信息").S elect("","户号,户主姓名 desc")
For i As Integer = 1 To drs.Count - 1
    If drs(i)("户号") = drs(i - 1)("户号") AndAlso drs(i-1).Isnull("户主姓名") = False
        drs(i)("户主姓名") = drs(i-1)("户主姓名")
    End If
Next
MessageBox.Show("计算结束," & DataTables("总人口信息").DataRows.Count & "条记录,耗时: " & (Date.Now - t1).TotalSeconds & "秒")

此主题相关图片如下：qq截图20161029100003.png