| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1281 人关注过本帖
标题:如何设置MSFlexGrid1控件
取消只看楼主 加入收藏
rich_ying
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-12-22
收藏
 问题点数:0 回复次数:3 
如何设置MSFlexGrid1控件

图片附件: 游客没有浏览图片的权限,请 登录注册


如何设置MSFlexGrid1控件?
1:我想把第一行去掉,不知道如何去掉?
2:我想把第一排的灰色改成白色的,如何做?

------------------------------------
代码如下:

Dim sqlstr As String
Dim msgtext As String
Dim ret As ADODB.Recordset

sqlstr = "select * from userinfo"

Set ret = executeSQL(sqlstr, msgtext)

With MSFlexGrid1
.Rows = 2
.CellAlignment = 4
.TextMatrix(1, 0) = "用户名"
.TextMatrix(1, 1) = "密码"

Do While Not ret.EOF
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = ret.Fields(0)
.TextMatrix(.Rows - 1, 1) = ret.Fields(1)

ret.MoveNext
Loop
End With

ret.Close

搜索更多相关主题的帖子: 控件 Dim sqlstr String 
2006-12-25 08:49
rich_ying
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-12-22
收藏
得分:0 
第一排是灰色的我现在已改成白色的了,可以用了,
但第一排我就是去不掉呀.
我希望字段名是第一行?
如何改?
在哪里改?
2006-12-25 09:08
rich_ying
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-12-22
收藏
得分:0 
我现在想在第一排加一个序号,但序号并不是我的表字段,结果提示"下标越界",为何呀,有错吗?

With MSFlexGrid1
.TextMatrix(0, 0) = "序号"
.TextMatrix(0, 1) = "用户名"
.TextMatrix(0, 2) = "密码" <<<<----下标越界

Do While Not ret.EOF
.TextMatrix(.Rows - 1, 0) = .Rows - 1
.TextMatrix(.Rows - 1, 1) = ret.Fields(0)
.TextMatrix(.Rows - 1, 2) = ret.Fields(1)
.Rows = .Rows + 1
ret.MoveNext
Loop
End With

ret.Close
2006-12-25 09:24
rich_ying
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-12-22
收藏
得分:0 
懂了,非常感谢
2006-12-25 09:59
快速回复:如何设置MSFlexGrid1控件
数据加载中...
 
   



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

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023865 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved