что-то у меня в комбобоксе символы не вводятся посмотрите код
меняю датасурс и датафилд как в едите
| Код | procedure TPaieskaForm.RadioButton1Click(Sender: TObject);
begin
paieskaform.DBComboBox1.DataField:='';
paieskaform.DBComboBox1.DataSource:=datamodule2.AprasymasSource;
paieskaform.DBComboBox1.DataField:=datamodule2.AprasymasTable.Fields.Fields[1].AsString;
end;
procedure TPaieskaForm.RadioButton2Click(Sender: TObject);
begin
paieskaform.DBComboBox1.DataField:='';
paieskaform.DBComboBox1.DataSource:=datamodule2.AprasymasSource;
paieskaform.DBComboBox1.DataField:=datamodule2.AprasymasTable.Fields.Fields[2].AsString;
end;
procedure TPaieskaForm.RadioButton3Click(Sender: TObject);
begin
paieskaform.DBComboBox1.DataField:='';
paieskaform.DBComboBox1.DataSource:=datamodule2.AprasymasSource;
paieskaform.DBComboBox1.DataField:=datamodule2.AprasymasTable.Fields.Fields[3].AsString;
end;
|
и код на кнопку | Код | procedure TPaieskaForm.rodytibtnClick(Sender: TObject);
begin
datamodule2.LotQuery.active:=false;
datamodule2.LotQuery.SQL.Clear;
datamodule2.LotQuery.SQL.Add('select * ');
datamodule2.LotQuery.SQL.Add('from rastenie');
datamodule2.LotQuery.SQL.Add('where "' + radiobutton1.Caption + '" like '''+dbcombobox1.Text+'''');
datamodule2.LotQuery.Active:=true;
rezisvedform.ShowModal;
end;
|
помогите сделать чтобы при выборе колонки таблицы (radiobutton1,2,3) значения из выбранного столбика попадали в комбобокс, а при нажатии кнопки данные выбранного значения отображалтсь в другой форме(rezisvedform, где находится грид и dbimage)  |