Foxtable(狐表)用户栏目专家坐堂 → 刚入门,求助


  共有15545人关注过本帖树形打印复制链接

主题:刚入门,求助

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/11 7:58:00 [显示全部帖子]

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

[此贴子已经被作者于2009-11-11 8:12:53编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/11 9:55:00 [显示全部帖子]

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

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


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

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/11 10:21:00 [显示全部帖子]

1、无关的问题,不要跟在同一个帖子
2、代码看不出问题,如果无效,做个例子看看。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/16 17:34:00 [显示全部帖子]

可以,不过Tables("员工档案.工资调整"),使用的是工资调整的视图,而不是员工档案的视图

 回到顶部