我用mshflexgrid控件显示数据库里面的内容,但我想在点击mshflexgrid控件里的内容时,文本框显示对应的内容。
如mshflexgrid控件有三列,分别为a,b,c。文本框有三个,为A,B,C。
现在我就是想当我任意点击a、b、c时,文本框A,B,C分别显示mshflexgrid控件对应的内容。
请帮忙

解决方案 »

  1.   

    Option ExplicitPublic Rs As New ADODB.Recordset
    Public Conn As New ADODB.ConnectionPrivate Sub Form_Load()
        Dim strConn As String
        strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=ANYA"
        Conn.CursorLocation = adUseClient
        Conn.Open strConn
        
        If Rs.State <> adStateClosed Then Rs.Close
        Rs.Open "Select * from Jobs", Conn, adOpenStatic, adLockOptimistic
        Set Me.MSHFlexGrid1.DataSource = RsEnd SubPrivate Sub MSHFlexGrid1_DblClick()
      With Me.MSHFlexGrid1
         .Col = 1
         Text1.Text = .Text
         .Col = 2
         Text2.Text = .Text
         .Col = 3
         Text3.Text = .Text
      End With
    End Sub