如何实时获取DBGrid 中当前单元格输入的内容?

如何获取DBGrid 中当前单元格输入的内容?

还没输入完成,我想实时获取 Cell中的内容,以便作其他处理,
用什么事件呢?

  所以Field的Onchange事件是没用的。


 

这个问题简单啊,每输入1个数据的后就提交(并不是提交到数据库,还是在编辑状态),那么用DataSet就可以取值了
用DBGrid的KeyUp事件:

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ADOQuery1.State in [dsinsert,dsedit] then
     ADOQuery1.UpdateRecord;
end;

这样可以直接用Edit1.text:=adoquery1.fieldbyname('XXOO').asstring取值了;
在那里取值或取那个字段值就随你了 


DBGrid1.SelectedField.AsString
DBGrid1.SelectedField.Text
看你需要选择
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
  value: string;
begin
  //value := DBGrid1.Fields[DBGrid1.selectedindex].Value;
  value := DBGrid1.SelectedField.Value;
  ShowMessage(value);
end;

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ADODataSet1.State in [dsInsert,dsEdit] then
    ADODataSet1.UpdateRecord;
end;

 


posted on 2018-12-27 21:34  癫狂编程  阅读(406)  评论(0编辑  收藏  举报

导航

好的代码像粥一样,都是用时间熬出来的