主题：[求助]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事件里 效率太低了 有没有别的方法弄颜色上去啊

你的需求是什么,说一下.看看有什么好方案没

   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

用一个全局表进行代替。把相关数据全部加载，然后引用这个表，这个效率应该还能接受

Select _Identify,OrderNumber,OrderDate,Supplier,InvoiceNumber,InvoiceDate,UserName,Status,

(Select DISTINCT OrderNumber from Purchase_Orders b where (Select Status from Purchase_List where OrderNumber = b.OrderNumber) = '采购中' 

and b.Quantity - (select sum(Quantity) from IQC_Details where Identify = b._Identify) > 0 

And DATEDIFF(day,GETDATE(),b.DeliveryDate) between 0 and 3) as 辅助

from Purchase_List a

这样做辅助列 辅助列里居然没数据，是不是哪里写错了啊 求帮忙看看

Select _Identify,OrderNumber,OrderDate,Supplier,InvoiceNumber,InvoiceDate,UserName,Status,

((Select top 1 OrderNumber from Purchase_Orders b where (Select Status from Purchase_List where OrderNumber = b.OrderNumber) = '采购中' 

and b.Quantity - (select sum(Quantity) from IQC_Details where Identify = b._Identify) > 0 

And DATEDIFF(day,GETDATE(),b.DeliveryDate) between 0 and 3)  is null) as 辅助

from Purchase_List a