var i: integer; begin ADOTable1.Active := true; for i:=0 to ADOTable1.RecordCount-1 do begin DBListBox1.Items.Append(ADOTable1.fieldbyname('rname').AsString); ADOTable1.Next; end; end;我觉得还是手工加进去的好。我试着用dblistbox绑定字段,结果运行时根本就不出内容,不知道是哪里没设对。
to popcom(popcom) :请问你的DBListGrid已经设定DataField属性了么,如果没有设定的话,是不能进行选择的。
i: integer;
begin
ADOTable1.Active := true; for i:=0 to ADOTable1.RecordCount-1 do
begin
DBListBox1.Items.Append(ADOTable1.fieldbyname('rname').AsString);
ADOTable1.Next;
end;
end;我觉得还是手工加进去的好。我试着用dblistbox绑定字段,结果运行时根本就不出内容,不知道是哪里没设对。
你可以在dblistbox1的onclick或ondblclick事件里赋值到别的控件。