新手上路:关于MSFlexGrid控件显示数据的问题?急!急!急!

liuweisheng 2006-04-11 11:31:44
MSFlexGrid里的数据是能过循环一条条加上去的,(我用的是ADO数据集),数据能正常在MSFlexGrid里显示,现在有两个问题:1.要求在MSFlexGrid里点击某一行的时候,MSFlexGrid里相应字段的值在右边相应的文本框里显示.2.因为我的MSFlexGrid里有三个字段的值,分别是name,pass,quanxian字段值,现在pass字段值下面显示的是字符,能不能显示成相应的"*".小弟刚学VB,不知道怎么实现?先谢了.(最好给出代码)
...全文
205 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
gangq 2006-09-29
密码你不想显示还搞它出来干嘛,不让它出现在msflexgrid中不就行了?
回复
南山明月 2006-09-29
我的Blog 上传了一个,由于msdn不支持图片以外的其它文件,我加了个.mbp来骗它
下载后去掉.bmp解压就可以了

http://p.blog.csdn.net/images/p_blog_csdn_net/qscandwh/NewMsFlex.rar.bmp
回复
tangjichuan 2006-04-16
Private Sub Form_Load()
Dim i As Long
MSFlexGrid.cols = 4
MSFlexGrid.ColWidth(3)=0
MSFlexGrid.Rows = Rs.RecordCount+1
Rs.MoveFirst
for i =1 to Rs.RecordCount
MSFlexGrid.TextMatrix(i, 0) =CStr(Rs!name)
MSFlexGrid.TextMatrix(i, 1) =String("*",Len(Rs!pass))
MSFlexGrid.TextMatrix(i, 2) =CStr(Rs!quanxian)
MSFlexGrid.TextMatrix(i, 3) =CStr(Rs!pass)
Rs.MoveNext
next i

End Sub
回复
liuweisheng 2006-04-15
faysky2:首先非常感谢!能继续回答我的问题吗?
回复
liuweisheng 2006-04-11
回faysky2:我的MSFlexGrid的行数是不确定的,是根据数据集的多少得到, MSFlexGrid1.TextMatrix(i, 0) = i & "1"这是什么意思?
回复
liuweisheng 2006-04-11
回faysky2:不是在TextBox里面显示成"*",在MSFlexGrid里要显示成"*".
回复
faysky2 2006-04-11
Private Sub MSFlexGrid1_Click()
With MSFlexGrid1
Text1.Text = .TextMatrix(.MouseRow, 0)
Text2.Text = .TextMatrix(.MouseRow, 1)
Text3.Text = .TextMatrix(.MouseRow, 2)
End With
End Sub
Private Sub Form_Load()
Dim i As Long
MSFlexGrid1.Rows = 4
MSFlexGrid1.cols = 3
For i = 1 To 4
MSFlexGrid1.TextMatrix(i, 0) = i & "1"
MSFlexGrid1.TextMatrix(i, 1) = i & "2"
MSFlexGrid1.TextMatrix(i, 2) = i & "3"
Next
End Sub
回复
faysky2 2006-04-11
能不能显示成相应的"*".
---------------------
把TextBox的PasswordChar设置为 * 就可以
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-04-11 11:31
社区公告
暂无公告