以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请看看我的窗口label事件哪里有问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90356)
--  作者：鲁吉
--  发布时间：2016/9/10 16:34:00
--  请看看我的窗口label事件哪里有问题
Dim str As String
str = Tables("建造师无在建").Current("是否中标")
If Tables("建造师无在建").Current("反馈预警") > Date.Today.AddDays(1) Then
    e.Text = "等待反馈."
Else
    If Tables("建造师无在建").Current("反馈预警") < Date.Today.AddDays(1) Then
        If str = "已中标" AndAlso str = "未中标"  Then
            e.Text = "已经反馈,行为良好."
        Else
            e.Text = "已过反馈日期未反馈,形成不良行为!"
        End If
    End If
End If
表中“是否中标”：已中标、未中标、未反馈

无论表中“是否中标”列为何值，都显示为"已过反馈日期未反馈,形成不良行为!"
--  作者：有点蓝
--  发布时间：2016/9/10 16:38:00
--  
If str = "已中标" orelse str = "未中标"  Then
--  作者：鲁吉
--  发布时间：2016/9/10 16:44:00
--  
解决了，谢谢！