能否否精简以下代码，谢谢If _Username <> e.Form.Controls("TB_录入人").Value Then
e.Form.Controls("TB_内容").ReadOnly = BooleanEnum.True
e.Form.Controls("TB_过程备忘").ReadOnly = BooleanEnum.True
e.Form.Controls("cbb_开始时间").ReadOnly = BooleanEnum.True
e.Form.Controls("cbb_结束时间").ReadOnly = BooleanEnum.True
e.Form.Controls("CBB_提醒提前").ReadOnly = BooleanEnum.True
e.Form.Controls("CB_提醒").ReadOnly = BooleanEnum.True
End If
加好友 
发短信
Post By：2015/6/29 21:39:00 [显示全部帖子]
