想实现通过单击MSFlexGrid中数据，赋予text1或text2文本
由于text1t 和 text2中数据不能一致。本人采用当焦点定位在text时，
单击MSFlexGrid中数据赋予相应的文本框text。可惜未成功
请各位大侠帮忙

你一点表格焦点就在表格啊.....起码你应该记录上一个焦点所在位置

你完全可以用 那个   a=MSFlexGrid.rowtext
select * from 表  where 列名=a
text1.text=dba.fileds("列名").value
不知道 可不可以

Dim iTextNum As Integer

Private Sub MSFlexGrid1_Click()
    Controls("Text" & iTextNum).Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col)
End Sub

Private Sub Text1_LostFocus()
    iTextNum = 1
End Sub

Private Sub Text2_LostFocus()
    iTextNum = 2
End Sub
按照上述方法已经尝试，但运行时提示未找到text控件。不知何故？

text1 = MSFlexGrid1.TextMatrix(行,列 )

你什么時候變聰明了
text1 = MSFlexGrid1.TextMatrix(i,j )

[[it] 本帖最后由 jxyga111 于 2008-11-15 09:26 编辑 [/it]]

  你太厲害..果然是傳說中的高手