VFP 愛用者社區

yoncen · 註冊時間: 2005-08-29 文章: 33 第 1 樓

Local oCA As CursorAdapter
oCA = Thisform._de.caProductDts
oCA.SelectCmd = ""

TEXT TO oCA.SelectCmd
Select a.ProductId,Isnull(a.ColorId,'') As ColorId,
Rtrim(Isnull(a.ProductDesc,'')) + ' ' + Isnull(a.Color,'') As ProductDesc,
a.PaperCoreName,a.PackName,a.PrintWheelName,
Isnull(a.ABC,'') As ABC,Isnull(a.DailyUseQty,0.00) As DailyUseQty,
Isnull(a.EmergPuDays,0) As EmergPuDays,Isnull(a.StandPuDays,0) As StandPuDays,
Isnull(a.MinStock,0.00) As MinStock,Isnull(a.SafeStock,0.00) As SafeStock,
Isnull(a.MaxStock,0.00) As MaxStock,Isnull(a.qDays,0) As qDays,a.Unit,
Isnull(Sum(b.Qty),0.00) As Qty,Isnull(Sum(b.Qty2),0.00) As Qty2,
Cast(Isnull(Sum(b.Qty),0.00)*Isnull(e.ConvRate,0) As Numeric(16,2)) As Area
From View_Product a WITH (NOLOCK)
Left Join OnlineStock b WITH (NOLOCK) On a.ProductId = b.ProductId
Left Join Warehouse c WITH (NOLOCK) On b.wId = c.wId
Left Join View_SA_SalesOrder d WITH (NOLOCK) On b.OrderId = d.OrderId
Left Join UnitConv e WITH (NOLOCK) On a.ProductId = e.ProductId And e.AuxUnit = 'SM'
Where a.ProductId = ?Thisform.ProductId
Group By a.ProductId,a.ColorId,a.ProductDesc,a.Color,
a.PaperCoreName,a.PackName,a.PrintWheelName,
a.ABC,a.DailyUseQty,a.EmergPuDays,a.StandPuDays,
a.MinStock,a.SafeStock,a.MaxStock,a.qDays,a.Unit,e.ConvRate
ENDTEXT

Select ProductDts
Tablerevert(.T.)
Requery()

這個CA本身SelectCmd有默認代碼，但我需要臨時根據查詢條件重寫CA的SelectCmd，然後讓CA重新查詢並返回結果。但發現以上代碼有執行，而且CA的SelectCmd確實也被改了，但Requery()出來的結果仍是按默認代碼查詢的。不知道是哪裡沒設好引起的？請朋友們指教，謝謝。

xinjie · 註冊時間: 2006-01-16 文章: 26 第 2 樓

把 SelectCmd 拆开，这里定义 Where 之前的语句内容，将 Where 及之后的语句，写至 BeforeCursorFill 事件。