求助

Question

不知道，你所说的是这个意思吗？Private Sub Grid1_EnterCell()
Text.text=Grid1.textmatrix(Grid1.row,Grid1.col) '将所单击的单元格中的内容写到textbox中
End Sub

Answer 1

是这样的吗，作一个函数
Sub SelectAll(text As TextBox)
text.SelStart = 0
text.SelLength = Len(text.Text)
End Sub

Answer 2

dragon525所说的并不能选中；只是让FLEXGERID中的内容显示在TEXTBOX中。
980() 所说的，我曾经把这段代码写在FLEXGRID的单击事件中，可是并不能实现自动选中。