基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

dbgrideh实现下拉列表

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh, Data.DB,
  Data.Win.ADODB, EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh, Datasnap.DBClient;

type
  TForm1 = class(TForm)
    grd1 :TDBGridEh;
    ds1 :TDataSource;
    cds1 :TClientDataSet;
    cds1Goods :TStringField;
    cds1Qutity :TIntegerField;
    qry1 :TADOQuery;
    procedure FormCreate(Sender :TObject);
    procedure grd1Columns0UpdateData(Sender: TObject; var Text: string; var Value: Variant; var UseText, Handled: Boolean);
    private
    c: TColumnEh;
      { Private declarations }
    public
      { Public declarations }
  end;

var
  Form1 :TForm1;

implementation

uses
  MidasLib;

{$R *.dfm}


procedure TForm1.FormCreate(Sender :TObject);


begin
  cds1.CreateDataSet;

  c := grd1.Columns[0];
  qry1.Open;
  qry1.First;
  while qry1.Eof = False do begin

    c.PickList.Add(qry1.FieldByName('goods').AsString);
    qry1.Next;
  end;

end;

procedure TForm1.grd1Columns0UpdateData(Sender: TObject; var Text: string; var Value: Variant; var UseText, Handled:
    Boolean);
begin
  if c.PickList.IndexOf(Text)=-1 then
    c.PickList.Add(Text);
end;

end.