想实现这样的效果:当“是否中标”列为“未中标”或空值时,隐藏控件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