主题：[求助]drawcell中效率太低了 有没有别的办法啊

Dim cmd As new SQLCommand

cmd.ConnectionName -- ""

If e.Row("Status") = "采购中" Then

    cmd.CommandText = "SELECT DISTINCT OrderNumber from {Purchase_Orders} where OrderNumber = '" & e.Row("OrderNumber") & "'and (select sum(Quantity) from {IQC_Details} where Identify = {Purchase_Orders}.[_Identify]) - (select sum(StorageQty) from {IQC_Details} where Identify = {Purchase_Orders}.[_Identify]) > 0 And DATEDIFF(day,GETDATE(),{Purchase_Orders}.DeliveryDate) <= 3 And DATEDIFF(day,GETDATE(),{Purchase_Orders}.DeliveryDate) >= 0"

    If cmd.ExecuteScalar IsNot Nothing Then

        e.Style = "timequick"

    End If

    cmd.CommandText = "SELECT DISTINCT OrderNumber from {Purchase_Orders} where OrderNumber = '" & e.Row("OrderNumber") & "'and (select sum(Quantity) from {IQC_Details} where Identify = {Purchase_Orders}.[_Identify]) - (select sum(StorageQty) from {IQC_Details} where Identify = {Purchase_Orders}.[_Identify]) > 0 And DATEDIFF(day,GETDATE(),{Purchase_Orders}.DeliveryDate) < 0 "

    If cmd.ExecuteScalar IsNot Nothing Then

        e.Style = "timeout"

    End If

End If

这些写在drawcell事件里 效率太低了 有没有别的方法弄颜色上去啊