当combobox1内容改变时灵性combobox2里的内容也跟着改变

Question

   
  procedure TFclassadd.cbb5Change(Sender: TObject);
var
   i: Integer;
   str: string;
begin
   cbb6.Clear;
   str := Trim( cbb5.Text );
   with FDM.qry3select do
   begin
      Close;
      SQL.Clear;
      SQL.Add('select facultyname from classinfo  where branchname ='''+str+'''');
      Open;      First;
      while not Eof do
      begin
         cbb6.Items.Add( fieldbyname('facultyname').AsString );
         Next;
      end;
   end;   cbb6.ItemIndex := 0;
end;end.   当我一选择cbb5中内容时,cbb6里还是空的？

Answer 1

 
procedure TFclassadd.cbb5Change(Sender: TObject);
var
   i: Integer;
   str: string;
begin   str := Trim( cbb5.Text );
   with FDM.qry3select do
   begin
      Close;
      SQL.Clear;
      SQL.Add('select distinct facultyname from classinfo  where branchname ='''+str+'''');
      Open;      cbb6.Clear;
      First;
      while not Eof do
      begin
         cbb6.Items.Add( fieldbyname('facultyname').Value);
         Next;
      end;
   end;   cbb6.ItemIndex := 0;
end; 
  我的是对的，我搞错了原cbb5中的内容