以文本方式查看主题

-  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=103758)
--  作者：yupeng
--  发布时间：2017/7/16 14:07:00
--  [求助] DrawCell绘制


此主题相关图片如下：微信截图_2017071621130700.jpg
按此在新窗口浏览图片

老师 您好

  

DrawCell绘制，怎样才能达到上图的效果，

 

必需前的指定列=True时，后面的再开始判断，如果是true，才绘制。

 

我写的代码如下： Return 没有达到效果，代理执行结果看下图。

 

If e.Col.Name = "面料" Or e.Col.Name = "面料日期" Then
    If e.Row("面料") = True Then
        e.Style = "OK"
    Else
        Return
    End If
End If

If e.Col.Name = "辅料" Or e.Col.Name = "辅料日期" Then
    If e.Row("辅料") = True Then
        e.Style = "OK"
    Else
        Return
    End If
End If


If e.Col.Name = "布料工艺" Or e.Col.Name = "布料工艺名称" Then
    If e.Row("布料工艺") = 1 Then
        e.Style = "OK"
    Else
        Return
    End If
End If

If e.Col.Name = "裁剪数量" Or e.Col.Name = "裁剪日期" Or e.Col.Name = "裁剪" Or e.Col.Name = "裁数审核" Then
    If e.Row("裁数审核") = True Then
        e.Style = "OK"
    Else
        Return
    End If
End If


此主题相关图片如下：232323.jpg
按此在新窗口浏览图片
--  作者：有点甜
--  发布时间：2017/7/16 16:49:00
--  
If e.Row("面料") = True Then
    If e.Col.Name = "面料" Or e.Col.Name = "面料日期" Then
        e.Style = "OK"
    End If
Else
    Return
End If
If e.Row("辅料") = True Then
    If e.Col.Name = "辅料" Or e.Col.Name = "辅料日期" Then
        e.Style = "OK"
    End If
Else
    Return
End If
If e.Row("布料工艺") = 1 Then
    If e.Col.Name = "布料工艺" Or e.Col.Name = "布料工艺名称" Then
        e.Style = "OK"
    End If
   
Else
    Return
End If
If e.Row("裁数审核") = True Then
    If e.Col.Name = "裁剪数量" Or e.Col.Name = "裁剪日期" Or e.Col.Name = "裁剪" Or e.Col.Name = "裁数审核" Then
        e.Style = "OK"
    End If   
Else
    Return
End If
--  作者：yupeng
--  发布时间：2017/7/16 18:30:00
--  
谢谢您的指点