Ну так что? Икто и неподскажет?
У меня ошибку дает при переключении на вторую радиокнопку. Код такой
Код:
procedure TNewCardForm.AtmRadioButtonClick(Sender: TObject);
begin
if AtmRadioButton.Checked then
begin
DBLookupComboBox2.Enabled := true;
DBLookupComboBox2.ListSource := DataModule2.AtmSource;
DBLookupComboBox2.KeyField := 'idatm';
DBLookupComboBox2.ListField := 'NomerAtm';
end;
end;
procedure TNewCardForm.InfRadioButtonClick(Sender: TObject);
begin
if InfRadioButton.Checked then
begin
DBLookupComboBox2.Enabled := true;
DBLookupComboBox2.ListSource := DataModule2.InfSource;
DBLookupComboBox2.KeyField := 'idinf';
DBLookupComboBox2.ListField := 'NomerInf';
end;
end;