想实现这样的效果：当“是否中标”列为“未中标”或空值时，隐藏控件Label15；当“是否中标”列为“已中标”时显示控件Label15，并且对Label15显示内容进行格式化。
设计了如下代码后，只有为空值时Label15是隐藏的，已中标或未中标时都显示出来了，并且显示的是当前时间而不是要格式化显示的内容。
请高手对这段代码检查下，看错在了哪里，应该如何修改
Label15的dataformat事件代码：
Dim str As String
Dim str1 As String
str = Tables("建造师无在建").Current("是否中标")
str1 = Tables("建造师无在建").Current("结束日期")
If str = "已中标" OrElse str = "未中标" Then
e.Form.Controls("Label15").Visible= True
Else
e.Form.Controls("Label15").Visible = False
If Tables("建造师无在建").Current("结束日期") > Date.Today.AddDays(1) Then
e.Text = "工程尚未结束。"
Else
If Tables("建造师无在建").Current("结束日期") < Date.Today.AddDays(1) Then
e.Text = "已过预计工期,是否竣工以实际手续为准！"
End If
End If
End If
加好友 
发短信
Post By：2017/2/7 17:16:00 [只看该作者]
