我使 MSHFlexGrid1 其中一个单元格变色,为什么只有一个变?

liuchanghu 2005-09-19 05:20:18
While Not Rs.EOF And i <= Rs.PageSize

.Rows = i + 1

.TextMatrix(i, 0) = Rs("id")

if Rs("id") then

         .CellFontBold = True
.CellAlignment = flexAlignLeftCenter '设置左居中对齐
.CellBackColor = vbRed
end if
rs.movenext
只有一个变,我想使此单元格都变,另外字体变色是哪个?
...全文
178 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2005-09-19
  • 打赏
  • 举报
回复
While Not Rs.EOF And i <= Rs.PageSize

.Rows = i + 1


if Rs("id") then
.Row=i
.col=0
.Text = Rs("id")

         .CellFontBold = True
.CellAlignment = flexAlignLeftCenter '设置左居中对齐
.CellBackColor = vbRed
end if
rs.movenext
liuchanghu 2005-09-19
  • 打赏
  • 举报
回复
加上了,但是还是只是第一行变,其他行没变
weiweiplay 2005-09-19
  • 打赏
  • 举报
回复
While Not Rs.EOF And i <= Rs.PageSize

.Rows = i + 1
.Row = i + 1 '增加此句
.TextMatrix(i, 0) = Rs("id")

if Rs("id") then

         .CellFontBold = True
.CellAlignment = flexAlignLeftCenter '设置左居中对齐
.CellBackColor = vbRed
end if
rs.movenext

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧