直接修改控件的样式即可。比如
If Tables("表A").Current("疫苗保存") = "保存本门诊" AndAlso Tables("表A").Current.IsNull("第二次实际接种日期") = True AndAlso Date.today > Tables("表A").Current("第二次按程序接种日期") Then
e.Form.Controls("日期控件").BackColor = Color.Red
End If
还不会做，就上传具体例子
加好友 
发短信
Post By：2015/6/23 11:10:00 [显示全部帖子]
