在MSFlexGrid控件显示数据时,当行数太多无法全部显示时,如何控制它显示最下面的行。
或者说在新加入一行时,如何让改行显示在可见区域,并使其成选中状态。
另一个问题:如何控制在控件的最前面插入一行。
亟需解决,麻烦高手们了!!

解决方案 »

  1.   

    Option ExplicitPublic Rs As New ADODB.Recordset
    Public Conn As New ADODB.ConnectionPrivate Sub Command1_Click()
        If Rs.State <> adStateClosed Then Rs.Close
        Rs.Open "Select * from authors", Conn, adOpenStatic, adLockOptimistic
        
        Dim i As Long
        
        With Me.MSFlexGrid1
          For i = 1 To Rs.RecordCount
            .Row = i
            .Col = 1
            .Text = Rs(0)
            .Col = 2
            .Text = Rs(1)
            .Rows = .Rows + 1
            Rs.MoveNext
          Next i
          .TopRow = .Row
        End With
    End SubPrivate Sub Form_Load()
        Dim strConn As String
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\People.mdb;Persist Security Info=False"
        Conn.CursorLocation = adUseClient
        Conn.Open strConn
    End Sub