如何将DBGrid中的信息读到edit编辑框中!请各位兄弟帮帮忙!很急!在线等候!!(100分!!) 如何将DBGrid中的信息读到edit编辑框中!请各位兄弟帮帮忙!很急!在线等候!!(100分!!) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DBGRID里的内容和数据库关联的,把数据库的字段内容读到EDIT里就相当于把DBGRID里的内容读到EDIT里 那如何将我选中的信息读取到edit中。如用鼠标选中用户编号字段中123456这条信息,如何只将123456读取中edit中! procedure TTestForm.DBGrid1CellClick(Column: TColumn);begin Edit1.Text:= Column.Field.AsString;end; 直接使用DBEdit不就行了吗?DBGrid和DBEdit都连接同一个数据源,然后指定字段给DBEdit就可以 在dbgrid 的事件中写procedure TTestForm.DBGrid1CellClick(Column: TColumn);begin Edit1.Text:= table1.fieldbyname('no').AsString; end; procedure TForm1.DBGrid1CellClick(Column: TColumn);beginedit1.Text :=Column.Field.AsString ; end; Edit1.Text:= dbgrid1.Columns[i].Field.AsString;要随记录滚动而变化edit.text,在数据集的onafterscroll事件中加上:edit1.text:=qry1.fieldbyname('fldname').asstring; 为什么不按照: smilelhh(blue)的和: setfocus(脸谱) 的做呢?难道还有争议吗? 不用按shift和ctrl,只需按下鼠标左键在listview拖动如何实现多项选中? 关于时间的问题 我要制作自己的安装程序,如何在程序中设置启动快捷方式? 怎么获取窗口中的所有子控件 请问各位大虾,有没有可以在上面添加图片和字体的控件。最好是有源吗。 各位快来帮忙!很急的 安装EHLIB报错: DELPHI开发的应用程序,如何判断用户机器所在的地区?(控件整的IP都是内网的,不好使,求指点) 这一段出现了错误,高手请告诉我为什么,谢谢! 为什么MSCOMM每次最多只能收16个字符 TSaveDialog如何设置缺省路径、文件名和后缀? 在线等待---如何提高运算速度
如用鼠标选中用户编号字段中123456这条信息,如何只将123456读取中edit中!
begin
Edit1.Text:= Column.Field.AsString;
end;
DBGrid和DBEdit都连接同一个数据源,然后指定字段给DBEdit
就可以
在dbgrid 的事件中写
procedure TTestForm.DBGrid1CellClick(Column: TColumn);
begin
Edit1.Text:= table1.fieldbyname('no').AsString;
end;
begin
edit1.Text :=Column.Field.AsString ;
end;
要随记录滚动而变化edit.text,在数据集的onafterscroll事件中加上:
edit1.text:=qry1.fieldbyname('fldname').asstring;
难道还有争议吗?