如何在MSHFlexGrid 控件中输入回车表格增加一行

解决方案 »

  1.   


    Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 13 Then
            MSHFlexGrid1.AddItem "asdasd", MSHFlexGrid1.RowSel
        End If
    End Sub
      

  2.   

    lxcc能不能说的详细一些    谢谢
      

  3.   

    mshflexgrid.rows=mshflexgrid.rows+1增加一行
    mshflexgrid.cols=mshflexgrid.cols+1增加一列
    msgbox mshflexgrid.row显示当前行
    msgbox mshflexgrid.col显示当前列
    msgbox mshflexgrid.TextMatrix(row,col)显示某一框的内容
      

  4.   

    利用KeyDown事件,新增一行
      

  5.   

    谢谢 再问如何在mshflexgrid控件的第一列中输入行号 列如前一列行号为13输入回车后增一行,并在mshflexgrid控件的第一列中显示14(行号+1)
      

  6.   

    mshflexgrid.rows=mshflexgrid.rows+1
    msgbox mshflexgrid.TextMatrix(row,0)
    放在一个合理的事件中
      

  7.   

    mshflexgrid.rows=mshflexgrid.rows+1
    msgbox mshflexgrid.TextMatrix(mshflexgrid.rows-1,0)=mshflexgrid.rows-1
    放在一个合理的事件中