以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  DrawCell  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193293)

--  作者:1234567
--  发布时间:2024/9/2 15:12:00
--  DrawCell

If e.Col.Name = "要求完成日期" Then
    If e.Row.IsNull("要求完成日期") = False Then\'且该列已经输入内容
        Dim d As Date = Date.Today
        If e.Row("要求完成日期") < d AndAlso (e.Row("进度") <> "完成" Or e.Row("进度") <> "入库") Then \'如果该列的值小于60
            e.Style = "已经超期" \'那么用"不及格"样式绘制单元格
        End If
    End If
End If

 

要求完成日期小于今天,并且进度不是完成或者进度不是入库,就用红色字体样式标识,为什么进度是完成的也用红色字体样式了


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/9/2 15:15:00
--  
Or改为andalso


--  作者:1234567
--  发布时间:2024/9/2 15:40:00
--  

能否删选【要求完成日期】的样式为已经超期的行,


--  作者:有点蓝
--  发布时间:2024/9/2 16:09:00
--  
Dim d As Date = Date.Today
dim f as string = "要求完成日期<#" & d & "# and 进度 <> \'完成\' and 进度 <> \'入库\'"

datatables("xx表").deletefor(f)