主题：刚入门，求助

  请帮忙看一下：

1.       显示员工档案表时，两个关联表停留在下方两边。

2.       除管理员和开发者以外（及管理员组），其余用户下工资调整表和员工档案不显示【基本工资暗】列。

3.       员工档案表【基本工资】和【基本工资暗】列分别自动填充相应姓名工资调整表【基本工资】和【基本工资暗】列的最大值。

4.       员工档案表【工龄补贴】列自动填充工龄调整表【工龄补贴】列的最大值。
刚学习，不好意思，麻烦各位了，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:车间记录.table

，

 

到现在能否加入：主键列 “_Identify”。和锁定状态“_Locked”列，另用内部表怎么设置数据类型。

供参考：：：
1、 在窗口中可以实现。
2、
If User.Name <> "开发者" Then
    Tables("员工档案").Cols("基本工资暗").Visible = False
End If

3、 tables("员工档案").current("基本工资") = DataTables("工资调整").Compute("Max(基本工资)")
4、 同 3、

内部表不需要设置这两列。 

数据类型设置： 菜单 数据表－列相关－更改列::::::::::::::   或
                            数据表－表相关－其他－表结构 ::::::;::

3、 tables("员工档案").current("基本工资") = DataTables("工资调整").Compute("Max(基本工资)"," 姓名 = '" & tables("员工档案").current("姓名") & "'")    ‘漏掉了条件，现补上

感谢mr725，请问分别在什么事件中设置，谢谢

第二条如果用表视图怎样实现

1、如果不用窗口，可以参考帮助：应用篇 - 关联表 - 设置关联表窗口，选择选项“独立停靠”，重新打开项目即可

2、项目事件AfterOpenProject或者LoadUserSetting中加入代码:

Dim v As Boolean =  (UserTypeEnum.Administrator OrElse User.Type = UserTypeEnum.Developer)
Tables("员工档案").Cols("基本工资暗").Visible = v
Tables("工资调整").Cols("基本工资暗").Visible = v

3和4、工资调整表的DataColChanged事件：

Select Case  e.DataCol.Name
    Case "姓名"
        Dim Filter  As String =  "姓名 = '" & e.DataRow("姓名") & "'"
        e.DataRow("基本工资") = DataTables("工资调整").Compute("Max(基本工资)", Filter)
        e.DataRow("基本工资暗") = DataTables("工资调整").Compute("Max(基本工资暗)", Filter)
        e.DataRow("工龄补贴") = DataTables("工龄调整").Compute("Max(工龄补贴)", Filter)
End Select

请问第二项我在项目事件LoadUserSetting中加入代码:

If User.Group <> "管理员" Then
    Tables("员工档案").Cols.Remove("基本工资暗")
    Tables("工资调整").Cols.Remove("基本工资暗")
End If
切换用户之后员工档案表和工资调整表做主表显示时可满足要求，但员工档案表作父表关联工资调整表做子表是关联表中【基本工资暗】列怎样用Cols.Remove代码隐藏。
另If User.Group = "管理员" 时怎样显示出2表中的【基本工资暗】列

1、如果关联表也要生效：

If User.Group <> "管理员" Then
         Tables("员工档案").Cols.Remove("基本工资暗")
         Tables("工资调整").Cols.Remove("基本工资暗")
         Tables("员工档案.工资调整").Cols.Remove("基本工资暗")
End If


2、另If User.Group = "管理员" 时怎样显示出2表中的【基本工资暗】列

已经Remove了，就不可能回来了，除非重新打开项目。
如果用Remove，应该删除切换用户按钮。