Foxtable(狐表)用户栏目专家坐堂 → 各位老师:这个代码如何写?


  共有3430人关注过本帖树形打印复制链接

主题:各位老师:这个代码如何写?

帅哥哟,离线,有人找我吗?
haozan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:45 积分:377 威望:0 精华:0 注册:2012/3/21 10:14:00
各位老师:这个代码如何写?  发帖心情 Post By:2014/5/14 21:57:00 [只看该作者]

请问老师,这个代码如何写?

如果 库存表 库存数量列 数值>0 则用自定义样式A



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:45 积分:377 威望:0 精华:0 注册:2012/3/21 10:14:00
  发帖心情 Post By: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编辑过]

老师,这和产品编号 有什么关系?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/14 22:12:00 [只看该作者]

以下是引用haozan在2014-5-14 22:09:00的发言:

老师,这和产品编号 有什么关系?

 

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
haozan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:45 积分:377 威望:0 精华:0 注册:2012/3/21 10:14:00
  发帖心情 Post By:2014/5/14 22:25:00 [只看该作者]

 谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
haozan
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:45 积分:377 威望:0 精华:0 注册:2012/3/21 10:14:00
  发帖心情 Post By: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 是怎么写的?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/14 22:42:00 [只看该作者]

代码 如下

 

If e.Col.name = "某一列" Then
    If e.Row("数量") > 0 Then
        e.Style = "样式A"
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
haozan
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:45 积分:377 威望:0 精华:0 注册:2012/3/21 10:14:00
  发帖心情 Post By:2014/5/14 22:43:00 [只看该作者]

 谢谢老师!

 回到顶部