如何获取datagrid中光标所在位置的记录？

datagrid中显示的是数据库表中的信息  
  怎样把datagrid中光标所在位置的整条记录取出来啊     并把取出来的记录分别用text文本框显示！  
  代码如何啊？ 问题点数：10、回复次数：3Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-08 13:49:50 得分 0

Private   Sub   Command1_click()  
          Dim   rsTmp   As   New   ADODB.Recordset  
          Set   rsTmp   =   DataGrid1.DataSource  
          If   rsTmp.EOF   Then   Exit   Sub  
          For   i   =   0   To   rsTmp.Fields.Count   -   1  
                  strTmp   =   strTmp   &   rsTmp(i)   &   ","  
          Next  
          Debug.Print   strTmp  
  End   SubTop

2 楼mingrenhuayuan（）回复于 2006-03-08 13:56:11 得分 0

谢谢楼上的朋友：若要把取出来的那行记录分别用text显示出来，又是如何写？Top

3 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-08 18:17:33 得分 10

如果你的控件做成了数组，可以这样写：  
  Private   Sub   Command1_click()  
          Dim   rsTmp   As   New   ADODB.Recordset  
          Set   rsTmp   =   DataGrid1.DataSource  
          If   rsTmp.EOF   Then   Exit   Sub  
          For   i   =   0   To   rsTmp.Fields.Count   -   1  
                  txtRlt(i).Text   =rsTmp(i)   &   ""  
          Next  
  End   Sub  
   
  如果不是控件数组，只能一个一个地赋值了：  
   
  Private   Sub   Command1_click()  
          Dim   rsTmp   As   New   ADODB.Recordset  
          Set   rsTmp   =   DataGrid1.DataSource  
          If   rsTmp.EOF   Then   Exit   Sub  
          Text1.Text=rsTmp(0)  
          Text2.Text=rsTmp(1)  
          Text3.Text=rsTmp(2)  
          ......  
  End   Sub  
   
  Top

相关问题

• datagrid
• rstmp
• 记录
• 取出
• sub
• datasource
• 显示
• private sub command
• eofthen exit
• dim

• 帖主：mingrenhuayuan
• faysky2

• Visual Basic类图书
• Visual Basic类源码下载