主题：[求助]RaiseDataColChanged如何能提高刷新效率

If e.DataCol.Name = "内部合同号" 

    Dim cmd As New SQLCommand   

    Dim dr As DataRow = e.DataRow

    cmd.C

    cmd.CommandText = "SELECT Max(生产_生产预计完成时间) From {供应链管理表} Where [供应链部_内部订单号] = '" & dr("内部合同号")& "'"    

     If cmd.ExecuteScalar() <> Nothing Then

        dr("订货日期记录_生产预计完成时间") = cmd.ExecuteScalar()

End If    

    Else

       End If

按钮刷新

DataTables("订货记录表").DataCols("内部合同号").RaiseDataColChanged()

----------------------------------

各位老师,我做了个按钮,见代码[按钮刷新],为何一万九千行,刷一次列要近十分钟尼,有老师有啥好办法啊