Vb MSHFlexGrid问题

[nineng789]

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

比如 MSHFlexGrid显示的为

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

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

而且MSHFlexGrid 内的数据全部背景色成蓝色 字的颜色是白色。

[goosen]

帮顶

[chinaboyzyq]

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

[brancyc]

顶

[feicui999]

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

事件应该在窗体事件中。

[csdn_风中雪狼]

哎,没有环境,随便写下

    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

[csdn_风中雪狼]

修改下

 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

[贝隆]

飘过