如何取出DBGrid中小箭头所指示行的所有字段的内容？

用ADOQuery做查询，返回的结果在DBGrid中显示，现在要以DBGrid中小箭头当前所指示的行的所有字段的内容为查询条件，问题是如何取得所有字段的内容？ 问题点数：50、回复次数：5Top

1 楼yq3woaini（哈哈镜 选择好心情）回复于 2004-10-03 17:36:29 得分 0

说清楚点。Top

2 楼netrobo（netrobo）回复于 2004-10-03 17:43:57 得分 25

因为是绑定，所以您直接读取DBGrid所依付的Query中的数据就可以了，如：  
   
  ShowMessage(DBGrid1.DataSource.DataSet.Fields[0].AsString);  
  ShowMessage(DBGrid1.DataSource.DataSet.Fields[1].AsString);  
  ShowMessage(DBGrid1.DataSource.DataSet.Fields[2].AsString);  
  ……Top

3 楼neowang（重阳）回复于 2004-10-03 19:41:12 得分 0

具体一点说，就是想在双击某一行时，取得该行中所有字段的内容。Top

4 楼taiguang（银狐）回复于 2004-10-03 19:53:55 得分 25

procedure   restore;  
   
  procedure   Form1.restore;  
  begin  
  edit1.Text:=dmd.do1.fieldbyname('页数').AsString;  
  edit3.Text:=dmd.do1.fieldbyname('工号').AsString;  
  edit4.Text:=dmd.do1.fieldbyname('姓名').AsString;  
  edit5.Text:=dmd.do1.fieldbyname('部门').AsString;  
  edit6.Text:=dmd.do1.fieldbyname('内容').AsString;  
  edit7.Text:=dmd.do1.fieldbyname('备注').AsString;  
  end;  
  procedure   Form1.DBGrid1MouseUp(Sender:   TObject;   Button:   TMouseButton;  
      Shift:   TShiftState;   X,   Y:   Integer);  
  begin  
  restore;  
  end;  
   
   
  Top

5 楼taiguang（银狐）回复于 2004-10-03 19:55:00 得分 0

dmd,do1   代表ADOQueryTop

相关问题

• 字段
• 内容
• asstring
• dmd
• dbgrid
• fieldbyname
• showmessage
• edit
• 所有字段的内容
• datasource

• 帖主：neowang
• netrobo
• taiguang

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载