主题：代码耗时长

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select [_Identify],编辑者 From {业务大表}  Where 编辑者 = '" & User.Name & "'"
dt = cmd.ExecuteReader(True) '记得将参数设置为True
For Each dr As DataRow In dt.DataRows
   dr("编辑者") = nothing
Next
dt.Save()

Syscmd.Project.Exit()