怎么在msflexgrid1怎么输入内容？急

怎么在msflexgrid1怎么输入内容？

解决方案 »

  1.   

    这个控件的本身不能实现，一楼的意思是加一个text来拼凑。
      

  2.   

    在text1得到回车的时候。
    with msflexgrid
       .textmarry(1,1)=text1
    end with
      

  3.   

    Set msflexgrid1.Recordset = 数据源
      

  4.   

    在双击msflexgrid控件获取单元格的位置（也就COL，ROW）然后把文本框显示出来这样实际上你是把要填写的内容添到了文本框中。然后你在把文本框中的内容写到点中的单元里就好了！
      

  5.   

    msflexgrid孔件的名称为：msflexgrid1
    上边嵌的那个TextBox框为text14
    当点击msflexgrid1时，触发事件，处理程序为：
    If MSFlexGrid1.Rows > MSFlexGrid1.Row And MSFlexGrid1.Row > 0 And MSFlexGrid1.Col <> 10 Then
      MSHFlexGridrow = MSFlexGrid1.Row
      MSHFlexGridcol = MSFlexGrid1.Col
      Text14.Visible = True
    '  Text14.SetFocus
      Text14.Text = MSFlexGrid1.Text
    Else
    '  Text14.Visible = False
      Command5.Visible = False
    End If
      Text14.Top = MSFlexGrid1.CellTop + 675
      Text14.Left = MSFlexGrid1.CellLeft + 120
      Text14.Width = MSFlexGrid1.CellWidth
      Text14.Height = MSFlexGrid1.CellHeight  在text14失去焦点时，也就是输入完成时可以触发输入验证，然后赋值：
    Dim i, j As Integer
    i = MSFlexGrid1.Row
    j = MSFlexGrid1.Col
    MSFlexGrid1.Row = MSHFlexGridrow
    MSFlexGrid1.Col = MSHFlexGridcol
    If Text14.Text <> "" Then
      MSFlexGrid1.Text = Text14.Text
    End If
    MSFlexGrid1.Row = i
    MSFlexGrid1.Col = j
    Text14.Text = ""
    Text14.Visible = False这样就可以完成你的工作了：）
      

  6.   

    楼主：FAQ里面就有，自己去看看。