我在properties 的onchange 根據用戶輸入欄位去資料庫自動模糊匹配添加combox中
但是現在是在我回車切換到下一個單元格的時候 上一個單元格的combox的items才重繪出來 如何解決這個問題？？？
procedure TJBSaleOrderForm.cxgrdbclmnCargoNamePropertiesChange(Sender: TObject);
var
GoodsName:string;
begin
inherited;
GoodsName:=tbviewedit.Controller.EditingController.Edit.EditingValue;//VarToStrDef(tbviewedit.DataController.GetValue(tbviewedit.Controller.FocusedRecordIndex, cxgrdbclmnCargoName.Index),'');
TcxComboboxProperties(cxgrdbclmnCargoName.Properties).Items.Clear;
if VarToStrDef(GoodsName,'')<>'' then
begin
with msq1 do
begin
Close;
SQL.Clear;
SQL.Text:='SELECT DISTINCT TOP 5 CargoName FROM dbo.SaleOrderDetail WHERE dbo.SaleOrderDetail.CargoName LIKE ' + QuotedStr('%'+GoodsName+'%');
Open;
end;
tbviewedit.DataController.Post;
if not dm.msqPUB.IsEmpty then
begin
dm.msqPUB.First;
while not DM.msqPUB.Eof do
begin
TcxComboboxProperties(cxgrdbclmnCargoName.Properties).Items.Add(msq1.FieldByName('CargoName').AsString);
DM.msqPUB.Next;
end;
end;
end;
end;
uj5u.com熱心網友回復：
ComboBox有一個屬性可以手動把下拉ITEM視窗彈出的ComboBox.DroppedDown:=True;
你在添加完ITEM后，加入上面的代碼就可以了
uj5u.com熱心網友回復：
謝謝了轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/9625.html
標籤：VCL組件開發及應用
上一篇：微信朋友圈