如何得到DBGrid中鼠标点击的单元格的值

Question

rt

Answer 1

显示当前点击的这一行的栏位的Column0栏位数值实现方法-->VarAsType(AViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column0.Index], varString)
想显示哪个栏位只要改变Column的号码就可以了。给你个例子：{获取当前行的相关数据,用于显示在结果窗口中进行编辑}
procedure TfmTotalSum_NCJCSJTJ.cxGrid1DBTableView1CellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
    ShowFormStr[1]:=trim(VarAsType(ACellViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column4.Index], varString));//检测结果
    ShowFormStr[2]:=trim(VarAsType(ACellViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column2.Index], varString));//样品品种
    ShowFormStr[3]:=trim(VarAsType(ACellViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column6.Index], varString));//检测人
    ShowFormStr[4]:=trim(VarAsType(ACellViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column5.Index], varString));//检测时间
    ShowFormStr[5]:=trim(VarAsType(ACellViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column7.Index], varString));//生产单位
    ShowFormStr[6]:=trim(VarAsType(ACellViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column8.Index], varString));//单位地址
    ShowFormStr[7]:=trim(VarAsType(ACellViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column13.Index], varString));//生产日期
    ShowFormStr[8]:=trim(VarAsType(ACellViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column9.Index], varString)); //仪器编号
    ShowFormStr[9]:=trim(VarAsType(ACellViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column14.Index], varString));//备注end;

Answer 2

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
    showmessage(dbgrid1.SelectedField.AsString);
end;

Answer 3

在ADOQuery组件　里有一个叫AfterScroll的事件上写在　DBGrid中鼠标点击的单元格时要做的事

Answer 4

请问在DBGridEh中用鼠标或键盘方向键在记录之后移动光标时发生什么事件?我想让主表中的光标移动时计算从表中的一些字段值,不知道在哪个事件里写代码??

Answer 5

操作相应的ADOQuery就可以
 showmessage(ADOQuery.fieldbyname('fieldname').AsString);