如何从 cxgrid Lookupcombobox 获取编辑值

发布于 2024-12-01 09:15:21 字数 938 浏览 1 评论 0原文

Delphi-7，DevExpress ExpressQuantumGrid Suite For Delphi.BCB v5.8 Fianl

我在 cxGrid 中有一个名为 emaillist_id 的 Lookupcombobox 列。其中 emaillist_id 是 KeyField，Email 是 ListField。用户可以从列表中选择电子邮件或键入新电子邮件。当用户输入新的电子邮件时，我想使用 SP 将其添加到数据库表中。为此我需要获得编辑值。我怎样才能做到这一点？

或者也许，这个问题有更好的解决方案。

procedure TfrmClientEmail.grdClientEMailDBTableViewEditValueChanged(
  Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem);
begin
  if AItem.Index=(Sender as TcxGridDBTableView).GetColumnByFieldName('emaillist_id').Index then
   with ADOSP_ClientEmailEdit do
     begin
        Parameters.ParamValues['@KodClient']:=ADOSP_ClientEmail['KodClient'];
        Parameters.ParamValues['@email']:=Sender.Controller.EditingController.Edit.EditValue;//This return KeyFieldValue
        ExecProc();
     end;
     ADOSP_ClientEmailRefresh();
end;

谢谢。

原文

Delphi-7, DevExpress ExpressQuantumGrid Suite For Delphi.BCB v5.8 Fianl

I have a lookupcombobox column in cxGrid named emaillist_id. Where emaillist_id is KeyField and Email is ListField. A user can either choose an email from the list or type a new one. When user type new Email I want to add it to a database table using SP. For that I need to get edited value. How can I do that?

Or maybe, there is a better solution for this problem.

procedure TfrmClientEmail.grdClientEMailDBTableViewEditValueChanged(
  Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem);
begin
  if AItem.Index=(Sender as TcxGridDBTableView).GetColumnByFieldName('emaillist_id').Index then
   with ADOSP_ClientEmailEdit do
     begin
        Parameters.ParamValues['@KodClient']:=ADOSP_ClientEmail['KodClient'];
        Parameters.ParamValues['@email']:=Sender.Controller.EditingController.Edit.EditValue;//This return KeyFieldValue
        ExecProc();
     end;
     ADOSP_ClientEmailRefresh();
end;

Thanks.

分享到QQ

分享到微博