给你的DataSet(AdoQuery/Query)新建一个查询字段,如:MCODE<br>给查询字段设置相应的数据源,如:dsMaterial<br>设置DBGridEh要显示下拉框的列的属性如下:<br>AlwaysShowEditButton:= True<br>DropDownShowTitle:= True<br>DropDownSizing:= True<br>FieldName:= MCODE<br>LookupDisplayFields:= '物料编码;物料名称'<br>设置STFilter下的DataField:= 'MATERIELID'<br>设置STFilter下的KeyField:= 'ID'<br>设置STFilter下的ListField:= 'CODE'<br>ListDataSource:= dsMaterial<br>//以下数据集为ListDataSource连接的DataSet<br> lListSQL:= Format('SELECT CODE AS 物料编码, '<br> + ' NAME AS 物料名称, '<br> + ' ID, CODE, NAME, SPEC, UNIT FROM MATERIAL',[]);<br> ADOQuery/Query.SQL.Text:= lListSQL;