If Forms("窗口1").Opened Then
Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
If r("日期") >= Date.Today AndAlso r("日期") < Date.Today.AddDays(1) Then
Forms("窗口1").controls("TextBox1").ForeColor = Color.Red
Forms("窗口1").controls("TextBox2").ForeColor = Color.Red
Forms("窗口1").controls("TextBox3").ForeColor = Color.Red
Else
Forms("窗口1").controls("TextBox1").ForeColor = Color.Black
Forms("窗口1").controls("TextBox2").ForeColor = Color.Black
Forms("窗口1").controls("TextBox3").ForeColor = Color.Black
End If
End If
End If
加好友 
发短信
Post By：2015/9/29 16:14:00 [只看该作者]
