以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  各位老师：这个代码如何写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50877)
--  作者：haozan
--  发布时间：2014/5/14 21:57:00
--  各位老师：这个代码如何写？
请问老师，这个代码如何写？

如果 库存表 库存数量列 数值>0 则用自定义样式A
--  作者：有点甜
--  发布时间：2014/5/14 22:00:00
--  

 DrawCell 事件？

 

Dim fdr As DataRow = DataTables("库存表").Find("产品编号 = \'" & e.Row("产品编号") & "\'")
If fdr IsNot Nothing AndAlso fdr("数量") > 0 Then
    e.Style = "样式A"
End If

[此贴子已经被作者于2014-5-14 22:01:43编辑过]
--  作者：haozan
--  发布时间：2014/5/14 22:09:00
--  
以下是引用有点甜在2014-5-14 22:00:00的发言：

 DrawCell 事件？

 

Dim fdr As DataRow = DataTables("库存表").Find("产品编号 = \'" & e.Row("产品编号") & "\'")
If fdr IsNot Nothing AndAlso fdr("数量") > 0 Then
    e.Style = "样式A"
End If

[此贴子已经被作者于2014-5-14 22:01:43编辑过]

老师，这和产品编号 有什么关系？
--  作者：有点甜
--  发布时间：2014/5/14 22:12:00
--  
以下是引用haozan在2014-5-14 22:09:00的发言：

老师，这和产品编号 有什么关系？

 

如果你这张表就是 库存表 ，就这样写

 

If e.Row("数量") > 0 Then
    e.Style = "样式A"
End If
--  作者：haozan
--  发布时间：2014/5/14 22:25:00
--  
 谢谢！
--  作者：haozan
--  发布时间：2014/5/14 22:34:00
--  
以下是引用有点甜在2014-5-14 22:12:00的发言：

 

如果你这张表就是 库存表 ，就这样写

 

If e.Row("数量") > 0 Then
    e.Style = "样式A"
End If

老师：如果是单元格自定义格式，而不是整行，应该怎么写？我找了帮助，但是就是不明白 If e.Row(e.Col.Name) >0 Then 是怎么写的？
--  作者：有点甜
--  发布时间：2014/5/14 22:42:00
--  

代码 如下

 

If e.Col.name = "某一列" Then
    If e.Row("数量") > 0 Then
        e.Style = "样式A"
    End If
End If
--  作者：haozan
--  发布时间：2014/5/14 22:43:00
--  
 谢谢老师！