以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何绘制整行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95894)

--  作者:zchlln
--  发布时间:2017/2/8 9:48:00
--  如何绘制整行
DrawCell 我目前设置条件显示的是一个单元格,我想符合条件的整行都显示出来
--  作者:有点色
--  发布时间:2017/2/8 10:20:00
--  
把 If e.Col = "第一列" Then 这样的条件去掉
--  作者:烟斗木木
--  发布时间:2017/2/8 10:21:00
--  
我用了一个蠢方法:集合
直接在到期提醒的例子上改了
原代码:
If e.col.Name = "到期日期" Then
  If
e.Row.IsNull("到期日期") = False
    If
e.Row("到期日期") < Date.Today.AddDays(10) Then
      e.Style =
"到期"
    End If
  End
If
End
If

修改后的:
把第一行代码改为:
Select Case e.Col.Name
    Case "第一列","第二列","第三列","第五列"
最后一个end if 改为 end select


更新:
此方法果然很蠢,请参照版主的方法,把第一行代码去掉就行了,已测试。
[此贴子已经被作者于2017/2/8 10:24:42编辑过]

--  作者:烟斗木木
--  发布时间:2017/2/8 10:24:00
--  
无地自容……
费死脑子改了代码,原来去掉就行了图片点击可在新窗口打开查看

--  作者:有点色
--  发布时间:2017/2/8 10:28:00
--  
 你这样写也对。可以区别某几列绘制。