| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 1329 人关注过本帖
标题:新手上路之MSFlexGrid数据转存
取消只看楼主 加入收藏
suanxiucai
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-11-12
收藏
 问题点数:0 回复次数:1 
新手上路之MSFlexGrid数据转存
想实现通过单击MSFlexGrid中数据,赋予text1或text2文本
由于text1t 和 text2中数据不能一致。本人采用当焦点定位在text时,
单击MSFlexGrid中数据赋予相应的文本框text。可惜未成功
请各位大侠帮忙
2008-11-13 09:15
suanxiucai
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-11-12
收藏
得分: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
快速回复:新手上路之MSFlexGrid数据转存
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016996 second(s), 10 queries.
Copyright©2004-2025, BC-CN.NET, All Rights Reserved