If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
Forms("导航").open()
Forms("主页").open()
Tables("maintable01").Cols("项目类型代码").Visible = False '项目类型代码不可见
Select Case User.Group
Case "生产","设计"
Tables("项目账务").Visible = False
Tables("授权表").Visible = False
End Select
Forms("预加载窗口").open()
DataTables("maintable01").DataCols("登记日期").RaiseDataColChanged()
For Each bjys As DataTable In DataTables
bjys.sysstyles("emptyarea").backcolor = Color.lightgray
Next
Tables("maintable01").Cols("客户担当").DropForm = "工程师下拉目录树1"
DataTables("maintable01").DataCols("要求交期").RaiseDataColChanged()
'DataTables("maintable01").GlobalHandler.BeforeShowContextMenu = True
加好友 
发短信
Post By：2023/1/7 8:37:00 [显示全部帖子]
此主题相关图片如下：02.png
