这个问题别人问了很多了,没有具体的决解方法,麻烦一点,自己动态写入吧. procedure Tform1.comboBox1DropDown(Sender: TObject); begin comboBox1.Clear; if frmDM.ClientDataSetNum.Active=False then frmDM.ClientDataSetNum.Active:=True; with frmDM.ClientDataSetNum do begin First; while Not Eof do begin comboBox1.Items.Add(Fields[1].AsString); Next; end; end; end;
procedure Tform1.comboBox1DropDown(Sender: TObject);
begin
comboBox1.Clear;
if frmDM.ClientDataSetNum.Active=False then
frmDM.ClientDataSetNum.Active:=True;
with frmDM.ClientDataSetNum do
begin
First;
while Not Eof do
begin
comboBox1.Items.Add(Fields[1].AsString);
Next;
end;
end;
end;