НЕ РАБОТАЕТ ЯТО НИ ТАК???

[rAMEO]

НЕ РАБОТАЕТ ЯТО НИ ТАК???

procedure TSotrudniki.ComboBox_SotrudnikClick(Sender: TObject);
begin
if ComboBox_Sotrudnik.ListFieldIndex = 0 then
 begin
   with DM_Sotrudniki.AQ_Personal do
      begin
    Active:=False;
    SQL.Clear;
    SQL.Add('SELECT * FROM Персонал');
    ExecSQL;
    Active:=true;
    ListBox_SQL.Items.Add(DM_Sotrudniki.AQ_Personal.FieldByName('Name').AsString);
 end; end;
if ComboBox_Sotrudnik.ListFieldIndex = 1 then
 begin
      with DM_Sotrudniki.AQ_Doljnost do
      begin
    Active:=False;
    SQL.Clear;
    SQL.Add('SELECT * FROM Должность');
    ExecSQL;
    Active:=true;
    ListBox_SQL.Items.Add(DM_Sotrudniki.AQ_Doljnost.FieldByName('Name').AsString);
 end; end;
if ComboBox_Sotrudnik.ListFieldIndex = 2 then
 begin
   with DM_Sotrudniki.AQ_Graldanstvo do
      begin
    Active:=False;
    SQL.Clear;
    SQL.Add('SELECT * FROM Гражданство');
    ExecSQL;
    Active:=true;
    ListBox_SQL.Items.Add(DM_Sotrudniki.AQ_Graldanstvo.FieldByName('Name').AsString);
end; end; end;

[Stilet]

ExecSQL;
Active:=true;

ExecSQL предназначен для UPDATE/INSERT/DELETE. Убери его.

ЯТО НИ ТАК

И ведь не поспоришь...
Может тогда скажешь, что ты хотел этим кодом получить?