我的AOP里面已经有这么多代码了。。。。
能不能简化啊?
Applicati
Forms("任务栏").open()
Syscmd.Project.Update(False,True)
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
'解锁非正常退出时被锁定的记录
DataTables("学员信息登记表").ReplaceFor("编辑者",Nothing,"编辑者 = '" & User.Name & "'")
DataTables("学员信息登记表").Save()
Tables("学员信息登记表").Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列
Tables("科一预约情况").Cols("姓名").DropForm = "窗口1"
Tables("科二预约情况").Cols("姓名").DropForm = "窗口2"
Tables("科二预约情况职院").Cols("姓名").DropForm = "窗口3"
Tables("科三预约情况").Cols("姓名").DropForm = "窗口4"
Tables("科三预约情况职院").Cols("姓名").DropForm = "窗口5"
Tables("科四预约情况").Cols("姓名").DropForm = "窗口6"
Tables("体检").Cols("姓名").DropForm = "窗口7"
Tables("站岗名单").Cols("姓名").DropForm = "窗口8"
Tables("学员信息登记表").Grid.Cols("第一列").style.backcolor = color.red
Tables("学员信息登记表").Grid.Cols("第二列").style.backcolor = color.red
Tables("学员信息登记表").Grid.Cols("第三列").style.backcolor = color.red
Tables("学员信息登记表").Grid.Cols("第四列").style.backcolor = color.red
[此贴子已经被作者于2016/4/11 22:46:40编辑过]