VSFlexGrid动态设置整行字体显示不同的颜色

如何用VSFlexGrid动态设置行字体显示不同的颜色。我有个数据库stu，一个表QQVIP  
  表结构如下：  
  id(自动编号)、QQid(INT,4)、ID1（INT，0），  
  0001                         249275501                   0                                                  
  0002                         249275502                   1                          
  0003                         249275503                   2                    
  说明：ID1值为0，表示红色  
              ID1值为1，1表示蓝色  
              ID1值为2，2表示绿色  
  问题1：  
        当我从数据库里的QQVIP表数据读到VSFlexGrid上时，如何根据ID1的值动态设置当前整行字体的颜色？代码怎么写，各位帮帮忙,在线等待。 问题点数：60、回复次数：4Top

1 楼hb9119（湖北SQL）回复于 2004-11-03 18:01:41 得分 0

5555555，自己定了…………Top

2 楼zjcxc（邹建）回复于 2004-11-03 18:28:25 得分 0

先吃饭,如果没有搞定,晚上再来Top

3 楼zjcxc（邹建）回复于 2004-11-03 22:06:54 得分 60

'数据刷新前,设置不让grid刷新,这样可以提高速度  
   
  Private   Sub   VSFlexGrid1_BeforeDataRefresh(Cancel   As   Boolean)  
          VSFlexGrid1.Redraw   =   flexRDNone  
  End   Sub  
   
  '数据更新后,根据id1的值设置颜色  
  Private   Sub   VSFlexGrid1_AfterDataRefresh()  
          Dim   iRow&,   iIDCol&,   iCol1&,   iCol2&  
          With   VSFlexGrid1  
                  iIDCol   =   .ColIndex("id1")   '取得id1字段所在的列号  
                  iCol1   =   .FixedCols   '取得活动列的开始列  
                  iCol2   =   .Cols   -   1   '取得结束列  
                  For   iRow   =   .FixedRows   To   .Rows   -   1   '循环设置行颜色  
                          .Cell(flexcpForeColor,   iRow,   iCol1,   iRow,   iCol2)   =   IIf(.TextMatrix(iRow,   iIDCol)   Mod   2   =   0,   &HFF0000,   &HFF)   '我这里只设置了两种颜色,楼主自己根据需要修改  
                  Next  
                  .Redraw   =   flexRDBuffered  
          End   With  
  End   Sub  
   
  Top

4 楼hb9119（湖北SQL）回复于 2004-11-04 12:17:07 得分 0

谢谢了：）Top

相关问题

• 字体
• 数据
• vsflexgrid
• icol
• iidcol
• 颜色
• irow
• 设置
• 动态
• 值

• 帖主：hb9119
• zjcxc

• Visual Basic类图书
• Visual Basic类源码下载