- procedure TForm1.DBGrid1CellClick(Column: TColumn);
- begin
- with DBGrid1.DataSource.DataSet do
- begin
- if Active and (RecordCount<>0) then
- ComboBox1.Text:= FieldByName(Column.FieldName).AsString;
- end;
- end;
点击Dbgrid数据显示在combobox
最新推荐文章于 2020-09-12 14:24:09 发布