4个回答
展开全部
在DBGrid的oncellclick事件写代码:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
with ADOTable1 do
if Active then
begin
Edit1.Text := Fields[0].AsString;
Edit2.Text := Fields[1].AsString;
Edit3.Text := Fields[2].AsString;
end;
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
with ADOTable1 do
if Active then
begin
Edit1.Text := Fields[0].AsString;
Edit2.Text := Fields[1].AsString;
Edit3.Text := Fields[2].AsString;
end;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你的DBGRID肯定需要与一个TABLE或QUERY之类的组件进行绑定哈,直接在DBGRID的单击事件中,获取TABLE或QUERY的当前字段值就可以
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
DBGrid1.DataSource.DataSet.fieldbyname('单元格').Asstring;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询