以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于样式问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147760)
--  作者：lgz518
--  发布时间：2020/3/23 16:19:00
--  关于样式问题
如何实现，
1.如果”客户“为"A”和“状态”为“良好”当前行字体为“蓝色”，数量，金额为正数；
2.如果”客户“为"B”和“状态”为“不及格”当前行字体为“红色”，数量，金额为负数，
3，如果”客户“为"C”和“状态”为“淘汰”当前行字体为“黄色”，数量，金额为负数，
--  作者：有点蓝
--  发布时间：2020/3/23 16:46:00
--  
参考：http://www.foxtable.com/webhelp/topics/0656.htm

If e.Row("客户") = "A" andalso e.Row("状态") = "良"  False
    e.Style = "样式1"
ElseIf e.Row("客户") = "B" andalso e.Row("状态") = "不及格"  False
    e.Style = "样式2"
ElseIf.....

End If
--  作者：lgz518
--  发布时间：2020/3/25 16:50:00
--  
If e.Row("客户") = "A" andalso e.Row("状态") = "良"  False
    e.Style = "样式1"
ElseIf e.Row("客户") = "B" andalso e.Row("状态") = "不及格"  False
    e.Style = "样式2"
ElseIf.....

End If
这代码是写在，单元格绘制事件吗？
--  作者：有点蓝
--  发布时间：2020/3/25 17:05:00
--  
是
--  作者：lgz518
--  发布时间：2020/3/31 17:58:00
--  

1.这个只是单元格，我是要整行的字段变色；
2，按上面代码，做实例，报错，代码已注掉，上传给您修改，谢谢
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:表样样式问题.table
--  作者：有点蓝
--  发布时间：2020/3/31 20:38:00
--  
If e.Row("客户") = "A" AndAlso e.Row("级别") = "优"  Then
    e.Style = "优"
ElseIf e.Row("客户") = "B" AndAlso e.Row("级别") = "良"  Then
    e.Style = "良"
ElseIf e.Row("客户") = "C" AndAlso e.Row("级别") = "不及格"  Then
    e.Style = "不及格"
    
End If
--  作者：lgz518
--  发布时间：2020/3/31 21:59:00
--  
1.如果”客户“为"A”和“级别”为“良好”当前行字体为“蓝色”，数量，金额为正数；
2.如果”客户“为"B”和“级别”为“不及格”当前行字体为“红色”，数量，金额为负数，
3，如果”客户“为"C”和“级别”为“淘汰”当前行字体为“黄色”，数量，金额为负数，

If e.Row("客户") = "A" AndAlso e.Row("级别") = "良好"  Then
    e.Style = "良好"
DataTables("样式").DataCols("数量").SetFormat("#0.00")
ElseIf e.Row("客户") = "B" AndAlso e.Row("级别") = "不及格"  Then
    e.Style = "不及格"
DataTables("样式").DataCols("数量").SetFormat("\\-0.00")
ElseIf e.Row("客户") = "C" AndAlso e.Row("级别") = "淘汰"  Then
    e.Style = "淘汰"
  DataTables("样式").DataCols("数量").SetFormat("\\-0.00")  
End If

上面代码，没报错，但没实现“数量”列，按条件实现为正数，负数
--  作者：有点蓝
--  发布时间：2020/3/31 22:08:00
--  
11
[此贴子已经被作者于2020/3/31 22:08:52编辑过]
--  作者：有点蓝
--  发布时间：2020/3/31 22:11:00
--  
这个意思？

If e.Row("客户") = "A" AndAlso e.Row("级别") = "优"  Then
    e.Style = "优"
ElseIf e.Row("客户") = "B" AndAlso e.Row("级别") = "良"  Then
    e.Style = "良"
if e.col.name = "数量"
e.text = "-" & e.Row("数量")
end if
ElseIf e.Row("客户") = "C" AndAlso e.Row("级别") = "不及格"  Then
    e.Style = "不及格"
if e.col.name = "数量"
e.text = "-" & e.Row("数量")
end if
End If
--  作者：lgz518
--  发布时间：2020/4/1 11:32:00
--  
是的，谢谢，老师，