我已经实现单击Adodc的左右箭头时 在多个Text中显示DataGrid列表中的每条记录,并是一一对应的。但现在有个问题我要实现下面的功能
如何实现鼠标双击控件DataGrid的任意一行时在Text文本中显示该行某字段的内容?

解决方案 »

  1.   

    Private Sub DataGrid1_DBClick()
        Text1.Text=DataGrid1.Columns(1).Text'得到第2列的内容
    End Sub
      

  2.   

    这样也可以:
    Private Sub DataGrid1_DBClick()
        Text1.Text=Adodc1.RecordSet("你需要的字段")'得到你需要的字段
    End Sub
      

  3.   

    谢谢 faysky2() 
    不过还有个问题 其中一个字段是类型是Binary(是用来存图片的)
    Private Sub DataGrid1_DBClick()
     Image1.Picture =DataGrid1.Columns(7)
    End Sub
    就会类型不匹配了
    怎么解决
    谢谢
      

  4.   

    Private Sub DataGrid1_DBClick()
     Set Image1.DataSource=Adodc1
     Image1.DataField="图片字段名"
    End Sub