Foxtable(狐表)用户栏目专家坐堂 → [讨论]这段代码错在哪里啊,


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

主题:[讨论]这段代码错在哪里啊,

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


加好友 发短信
等级:一尾狐 帖子:475 积分:3548 威望:0 精华:0 注册:2012/8/30 10:58:00
[讨论]这段代码错在哪里啊,  发帖心情 Post By:2013/9/10 20:25:00 [只看该作者]

If e.Col.name = "完成时间" Then
    If e.Row.Isnull("完成时间")= False Then
        If e.Row("完成时间") <=Date.Today Then
            e.style = "逾期"
        Else  If e.Row("完成时间") <Date.Today.adddays(3) Then
            e.style = "快到期"
        End If
    End If
End If

If e.Col.name = "已发货" Then
    If e.Row.Isnull("已发货") =  False Then
        If e.Row("已发货").checked = True Then
            e.Row("完成时间").style = "发货"
        End If
    End If
End If

 

 

其中,"已发货"在表中设置的是逻辑型,可是运行结果却是找不到checked ,问题出在哪里啊

 


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

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


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

改成如下

If e.Col.name = "完成时间" Then
    If e.Row.Isnull("完成时间")= False Then
        If e.Row("完成时间") <=Date.Today Then
            e.style = "逾期"
        Else  If e.Row("完成时间") <Date.Today.adddays(3) Then
            e.style = "快到期"
        End If
    End If
Else If e.Col.name = "已发货" Then
    If e.Row.Isnull("已发货") =  False Then
        If e.Row("已发货") = True Then
            e.Row("完成时间").style = "发货"
        End If
    End If
End If

[此贴子已经被作者于2013-9-10 20:30:03编辑过]

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


加好友 发短信
等级:一尾狐 帖子:475 积分:3548 威望:0 精华:0 注册:2012/8/30 10:58:00
  发帖心情 Post By:2013/9/10 21:09:00 [只看该作者]

又显示出这样的问题,
图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

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


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

 呵呵,改错了。

If e.Col.name = "完成时间" Then
    If e.Row.Isnull("完成时间")= False Then
        If e.Row("完成时间") <=Date.Today Then
            e.style = "逾期"
        Else  If e.Row("完成时间") < Date.Today.adddays(3) Then
            e.style = "快到期"
        End If
    End If
    If e.Col.name = "已发货" Then
        If e.Row.Isnull("已发货") =  False Then
            If e.Row("已发货") = True Then
                e.style = "发货"
            End If
        End If
    End If
End If

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


加好友 发短信
等级:一尾狐 帖子:475 积分:3548 威望:0 精华:0 注册:2012/8/30 10:58:00
  发帖心情 Post By:2013/9/10 21:43:00 [只看该作者]

非常感谢

 回到顶部