新手上路之MSFlexGrid数据转存 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 新手上路之MSFlexGrid数据转存

标题：新手上路之MSFlexGrid数据转存

取消只看楼主

suanxiucai

等　级：新手上路
帖　子：6
专家分：0
注　册：2008-11-12

楼主

问题点数：0 回复次数：1

新手上路之MSFlexGrid数据转存

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

搜索更多相关主题的帖子: MSFlexGrid　数据　转存　

2008-11-13 09:15

suanxiucai

等　级：新手上路
帖　子：6
专家分：0
注　册：2008-11-12

第 2 楼

得分:0

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控件。不知何故？

2008-11-14 16:05

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-243950-1-1.html