with dblkReportInfo do begin KeyField := 'PersonName'; ListField := 'PersonName'; DropDownBox.Columns.Clear; DropDownBox.Columns.Add; DropDownBox.Columns.Add; with TADOQuery(DropDownBox.ListSource.DataSet) do begin DropDownBox.Columns[0].FieldName := 'WorkID'; DropDownBox.Columns[1].FieldName := 'PersonName'; Close; SQL.Clear; SQL.Text :=' Select rTrim(WorkID) As WorkID,' +'rTrim(PersonName) As PersonName From Employee ' +'where RecordState<>'+QuotedStr('ɾ³ý'); Open; dblkReportInfo.KeyValue := FieldByName('PersonName').AsString; end;
在 DBGrid 网格中实现下拉列表，设置好 DBGrid 中该字段的 PickList 字符串列表、初始的序号值 DropDownRows 即可。以职工信息库中的籍贯字段（字符串类型）为例，具体设计步骤如下：
1、在窗体上放置 Table1、DataSource1、DBGrid1、DBNavigator1 等控件对象，按下表设置各个对象的属性:---------------------------------------
对象 属性 设定值
---------------------------------------
Table1 DataBase sy1
TableName zgk.dbf //职工信息库
DataSource1 DataSet Table1
DbGrid1 DataSource DataSource1
DBNavigator1 DataSource Datasource1
------------------------------------------- 2、双击 Table1，在弹出的 Form1.Table1 窗口中，用右键弹出快捷菜单，单击 Add Fields 菜单项；选择所有的字段后，按 OK 按钮。 3、修改第 2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例， 在 Object Inspector 窗口中选择 Table1ZGBH，修改属性 DisplayLabel= 职工编号，其余字段类似。
4、双击 DBGrid1，在弹出的 Editing DBGrid1.Columns 窗口中， 单击 Add all Fields 按钮，增加 Table1 的所有字段。 5、在 Editing DBGrid1.Columns 窗口，选择 jg 这一行，切换到 Object Inspector 窗口，修改它的 PickList.Strings 为
“湖北枝江市
北京市
河南平顶山市
浙江德清市” 6、在 Form1.Oncreate 事件中写入语句： Table1.Open; 7、F9 运行，用鼠标点击某个记录的籍贯字段，右边即出现一个按钮，点击这个按钮，可出现一个下拉列表，包含第 5 步中输入的四行字符串，可用鼠标进行选择。当然也可以自行输入一个并不属下拉列表中的字符串。
二、DBGrid 中 的 查 找 字 段
所谓查找字段(LookUp Field)，即 DBGrid中的某个关键字段的数值来源于另外一个数据库的相应字段。运用查找字段技术，不仅可以有效的避免输入错误，而且 DBGrid 的显示方式更为灵活，可以不显示关键字段，而显示源数据库中相对应的另外一个字段的数据。 例如，我们在 DBGrid 中显示和编辑职工信息，包括职工编号、职工姓名、籍贯、所在单位编号，而单位编号来源于另一个数据库表格——单位库，称“单位编号”为关键字段。如果我们直接显示和编辑单位编号的话，将会面对 1、2、3 等非常不直观的数字，编辑时极易出错。但是如果显示和编辑的是单位库中对应的单位名称话，将非常直观。这就是 DBGrid 的所支持的查找字段带来的好处。 实现 DBGrid 的查找字段同样不需要任何语句，具体设计步骤如下：
1、在窗体上放置 Table1、Table2、DataSource1、DBGrid1、DBNavigator1 等控件对象，按下表设置各个对象的属性:
---------------------------------------
对象 属性 设定值
---------------------------------------
Table1 DataBase sy1
TableName zgk.dbf //职工信息库
Table2 DataBase sy1
TablenAME dwk.dbf //单位信息库
DataSource1 DataSet Table1
DbGrid1 DataSource DataSource1
DBNavigator1 DataSource Datasource1
------------------------------------------ 2、双 击Table1，在弹出的 Form1.Table1 窗口中，用右键弹出快捷菜单，单击 Add Fields 菜单项；选择所有的字段后，按 OK 按钮。 3、修改第 2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例，在 Object Inspector 窗口中选择 Table1ZGBH，修改属性 DisplayLabel= 职工编号，其余字段类似。 4、设置 Table1DWBH.Visible=False。 5、在 Form1.Table1 窗口，用右键弹出快捷菜单，单击 New Field 菜单项，新增一个查找字段 DWMC，在弹出的窗口设置相应的属性，按 OK 按钮确认；在 Object Inspector 窗口，设置 Table1DWMC.DisplayLabel= 单位名称。 6、在 Form1.Oncreate 事件中写入语句：
Table1.Open; 7、按 F9 运行，当光标移至某个记录的单位名称字段时，用鼠标点击该字段，即出现一个下拉列表，点击右边的下箭头，可在下拉列表中进行选择。在这里可以看出，下拉列表的内容来自于单位信息库，并且不能输入其他内容。
三、DBGrid 中的下拉列表和查找字段的区别
虽然 DBGrid 中的下拉列表和查找字段，都是以下拉列表的形式出现的，但两者有很大的差别。 1、用 PickList 属性设置的下拉列表，它的数据是手工输入的，虽然也可以在程序中修改，但动态特性显然不如直接由另外数据库表格提取数据的查找字段。 2、用 PickList 属性设置的下拉列表，允许输入不属于下拉列表中的数据，但查找字段中只能输入源数据库中关键字段中的数据，这样更能保证数据的完整性。 3、用 PickList 属性设置的下拉列表设计较为简单。
DBGrideh1.Columns[i].LookupDisplayFields:=字段1;字段2
begin
KeyField := 'PersonName';
ListField := 'PersonName';
DropDownBox.Columns.Clear;
DropDownBox.Columns.Add;
DropDownBox.Columns.Add;
with TADOQuery(DropDownBox.ListSource.DataSet) do
begin
DropDownBox.Columns[0].FieldName := 'WorkID';
DropDownBox.Columns[1].FieldName := 'PersonName';
Close;
SQL.Clear;
SQL.Text :=' Select rTrim(WorkID) As WorkID,'
+'rTrim(PersonName) As PersonName From Employee '
+'where RecordState<>'+QuotedStr('ɾ³ý');
Open;
dblkReportInfo.KeyValue := FieldByName('PersonName').AsString;
end;
end;