此时的adoquery1已经打开了 ComboBox1.items.Clear; ADOQuery1.First; With ComboBox1 Do BEgin Items.Add(ADOQuery1.FieldByName(‘字段名称’).AsString); ADOQUery1.Next; End;
还要加个循环!ComboBox1.items.Clear; ADOQuery1.First; With ComboBox1 Do BEgin while not adoQuery1.eof do begin Items.Add(ADOQuery1.FieldByName(‘字段名称’).AsString); ADOQUery1.Next; end End;
对 是的 我的没有加上循环的条件的 应该是: ComboBox1.items.Clear; ADOQuery1.First; While Not ADOQuery1.EOf Do Begin With ComboBox1 Do BEgin Items.Add(ADOQuery1.FieldByName(‘字段名称’).AsString); ADOQUery1.Next; End; End;
ComboBox1.items.Clear;
ADOQuery1.First;
With ComboBox1 Do
BEgin
Items.Add(ADOQuery1.FieldByName(‘字段名称’).AsString);
ADOQUery1.Next;
End;
ADOQuery1.First;
With ComboBox1 Do
BEgin
while not adoQuery1.eof do
begin
Items.Add(ADOQuery1.FieldByName(‘字段名称’).AsString);
ADOQUery1.Next;
end
End;
ComboBox1.items.Clear;
ADOQuery1.First;
While Not ADOQuery1.EOf Do
Begin
With ComboBox1 Do
BEgin
Items.Add(ADOQuery1.FieldByName(‘字段名称’).AsString);
ADOQUery1.Next;
End;
End;