Vb MSHFlexGrid问题

nineng789 2009-08-28 11:38:05
MSHFlexGrid 绑定了adodc控件 数据库名称 xuesheng.mdb 表名称 xiaoxuesheng
我点击一个全选的按键 然后把 MSHFlexGrid显示下的第一列的所有数据复制到list1中 并且MSHFlexGrid中的数据背景变成蓝色 字成白色。就是看上去是个全选的假象。

比如 MSHFlexGrid显示的为

学生姓名 班级
张三 0302
李四 0301
……

现在点击全部按钮command1 list 下添加的就是张三 李四 ……

而且MSHFlexGrid 内的数据全部背景色成蓝色 字的颜色是白色。
...全文
69 7 点赞 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
贝隆 2009-08-30
飘过
  • 打赏
  • 举报
回复
修改下


private sub command1_click
dim Li_Count as integer
dim Li_i as integer
li_count=msf.Rows-1'得到msf控件的总行数,下标从0开始所以还要减一个1
msf.Col = 0'当操作列为 第0列
for li_i=0 to li_count'//如下标从0开始则为 for li_i=0 to li_count
list1.AddItem msf.TextMatrix(li_i,0) '//添加第0列
msf.Row = li_i '当前操作的行
msf.CellBackColor = vbBlue'//设置当前单元格的背景色,其值为 蓝色的
msf.CellForeColor= vbWhite'//设置当前单元格的前景色,其值为 白色的
next
end sub
  • 打赏
  • 举报
回复
哎,没有环境,随便写下

private sub command1_click
dim Li_Count as integer
dim Li_i as integer
li_count=msf.Rows-1'得到msf控件的总行数,下标从0开始所以还要减一个1
msf.Col = 0'当操作列为 第0列
for li_i=0 to li_count'//如下标从0开始则为 for li_i=0 to li_count
list1.AddItem msf.TextMatrix(li_i,0) '//添加第0列
msf.Row = li_i '当前操作的行
msf.CellBackColor = 颜色值'//设置当前单元格的背景色
next
end sub
  • 打赏
  • 举报
回复
feicui999 2009-08-29
private sub from_load
dim Li_Count as integer
dim Li_i as integer
li_count=msf.Rows-1'得到msf控件的总行数,下标从0开始所以还要减一个1
msf.Col = 0'当操作列为 第0列
for li_i=0 to li_count'//如下标从0开始则为 for li_i=0 to li_count
list1.AddItem msf.TextMatrix(li_i,0) '//添加第0列
msf.Row = li_i '当前操作的行
msf.CellBackColor = vbBlue'//设置当前单元格的背景色,其值为 蓝色的
msf.CellForeColor= vbWhite'//设置当前单元格的前景色,其值为 白色的
next
end sub

事件应该在窗体事件中。
  • 打赏
  • 举报
回复
brancyc 2009-08-29
  • 打赏
  • 举报
回复
chinaboyzyq 2009-08-29

Private Sub Command1_Click()
dim iRow as integer
for iRow = 1 to MSHFlexGrid1.Rows
list1.AddItem MSHFlexGrid1.TextMatrix(iRow,0)
next iRow
MSHFlexGrid1.BackColor = vbBlue
MSHFlexGrid1.ForeColor = vbWhite
End Sub
  • 打赏
  • 举报
回复
goosen 2009-08-28
帮顶
  • 打赏
  • 举报
回复
相关推荐
发帖
控件
创建于2007-09-28

1429

社区成员

VB 控件
申请成为版主
帖子事件
创建了帖子
2009-08-28 11:38
社区公告
暂无公告