怎么将这两句整合在一起？？？

Question

begin
combobox1.Items.Clear;
adoquery2.Active:=false;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select distinct sno  from W1_kwxiang_18_Goods');
adoquery2.Active:=true;
adoquery2.First;
while not adoquery2.Eof  do
begin
combobox1.Items.Add(adoquery2.fieldByName('sno').AsString);
adoquery2.Next;
end
combobox3.Items.Clear;
adoquery3.Active:=false;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select distinct cno  from W1_kwxiang_18_People');
adoquery3.Active:=true;
adoquery3.First;
while  not adoquery3.Eof do
begin
combobox3.Items.Add(adoquery3.fieldByName('cno').AsString);
adoquery3.Next;
endend;

Answer 1

没问题啊~~可能是你的代码少了分号
begin 
combobox1.Items.Clear; 
adoquery2.Active:=false; 
adoquery2.SQL.Clear; 
adoquery2.SQL.Add('select distinct sno  from W1_kwxiang_18_Goods'); 
adoquery2.Active:=true; 
adoquery2.First; 
while not adoquery2.Eof  do 
begin 
combobox1.Items.Add(adoquery2.fieldByName('sno').AsString); 
adoquery2.Next; 
end ;
combobox3.Items.Clear; 
adoquery3.Active:=false; 
adoquery3.SQL.Clear; 
adoquery3.SQL.Add('select distinct cno  from W1_kwxiang_18_People'); 
adoquery3.Active:=true; 
adoquery3.First; 
while  not adoquery3.Eof do 
begin 
combobox3.Items.Add(adoquery3.fieldByName('cno').AsString); 
adoquery3.Next; 
end; end; 

Answer 2

 combobox1.Items.Clear;
   combobox3.Items.Clear;     with adoquery2 do begin
       close;
       sql.Text:='select distinct sno  from W1_kwxiang_18_Goods';
       open;
       while not eof do begin
        combobox1.Items.Add(fieldByName('sno').AsString);
        next;
       end;
       close;
       sql.Text:='select distinct cno  from W1_kwxiang_18_People';
       open;
        while not eof do begin
        combobox3.Items.Add(fieldByName('sno').AsString);
        next;
       end;
     end;

Answer 3

   combobox1.Items.Clear;
   combobox3.Items.Clear;
     with adoquery2 do begin
       close;
       sql.Text:='select distinct sno, cno from W1_kwxiang_18_Goods';
       open;
       while not eof do begin
        if combobox1.Items.IndexOf(fieldByName('sno').AsString) = -1 then combobox1.Items.Add(fieldByName('sno').AsString);
        if combobox3.Items.IndexOf(fieldByName('cno').AsString) = -1 then combobox3.Items.Add(fieldByName('cno').AsString);        next;
       end;