如何使ＤＢＧＲＩＤ中的某一网格的下拉列表的内容从一个数据库中用ＡＤＯＱＵＥＲＹ导入

[shangui]

如何使ＤＢＧＲＩＤ中的某一网格的下拉列表的内容从一个数据库中用ＡＤＯＱＵＥＲＹ导入.就是使ＤＢＧＲＩＤ中ＣＯＬＵＭＮＳ[].ＰＩＣＫＬＩＳＴ中的内容可以从一个数据库中导入.我把数据库中的某一字段的全部记录都读入到一个数组中,然后把数组赋给它,类型不匹配,请各位大侠快快帮小弟一把.

[frogshero]

类型不匹配?picklist是TStrings

[微雪缤纷]

hnhb(不死鸟) 的方法更简单些。

[安优小青和他的程序生活]

PICKLIST 是 TSTRINGLIST 类型，当然数组不匹配了，
你读的时候事先建立一个TSTRINGLIST,

VAR MYSTR :TSTRINGLIST;
BEGIN
MYSTR :=TSTRINGLIST.CREATE;

FOR I:=0 TO N DO
BEGIN
MYSTR.ADD('...');
END;

ＤＢＧＲＩＤ中ＣＯＬＵＭＮＳ[].ＰＩＣＫＬＩＳＴ:= MYSTR;

[ltmb118]

用 wwdbgrid 可以非常容易的实现

[hnhb]

我没有用picklist,我是把一个combobox控件加入实现的.

在form上放一个ComboBox组件,设定它的visible为false
先把另一个数据表的可用记录放入其中

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if gdfocused in state then
begin
if column.FieldName='xxx' then //xxx为你要让combobox显示的那列的字段名
begin
ComboBox1.Left:=rect.Left+form1.DBGrid1.Left;
ComboBox1.Top:=rect.Top+form1.DBGrid1.Top;
ComboBox1.Width:=rect.Right-rect.Left;
ComboBox1.Height:=rect.Bottom-rect.Top;
ComboBox1.Visible:=true;
end;
end;
end;