这样的问题怎么解决？

Question

Option Explicit
Private Type FlxCell
    row As Long
    col As Long
End Type
Private m_ActiveCell As FlxCell
Private Sub MSFlexGrid1_Click()
    Call MSFlexGrid1_GotFocusEnd SubPrivate Sub MSFlexGrid1_GotFocus()
    If MSFlexGrid1.col = 0 Then
        m_ActiveCell.row = MSFlexGrid1.row
        m_ActiveCell.col = MSFlexGrid1.col
        With Combo1
            .Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
            .Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
            .Width = MSFlexGrid1.CellWidth
            .Text = MSFlexGrid1.TextMatrix(m_ActiveCell.row, m_ActiveCell.col)
            .Visible = True
            .ZOrder
            .SetFocus
        End With
    End IfEnd Sub

Answer 1

自动加行的代码写在GotFocus事件中.
If msgrid1.row = msgrid1.rows Then
   msgrid1.rows= Spread1.rows + 1
   msgrid1.Col = 1
   msgrid1.Row = Spread1.rows- 1
End If
大概是这样,你试试吧.