If forms("日新车队").opened Then Dim r As Row = e.Table.Current If r IsNot Nothing Then If r("二保日期") >= Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then forms("日新车队").Controls("TextBox23").Text = "正常" Else If r("二保日期") < Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then forms("日新车队").Controls("TextBox23").Text = "漏保" Else If r("二保日期") < Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") >= Date.Today Then forms("日新车队").Controls("TextBox23").Text = "漏保|漏审" Else forms("日新车队").Controls("TextBox23").Text = "漏保|漏审|漏费" End If Else forms("日新车队").Controls("TextBox23").Text = Nothing End If End If
|