Foxtable(狐表)用户栏目专家坐堂 → C版请进:求代码,还是不行


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

主题:C版请进:求代码,还是不行

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
C版请进:求代码,还是不行  发帖心情 Post By:2010/3/11 19:34:00 [显示全部帖子]

表DoubleClick事件代码如下:
If e.Table.name = "产品工艺录入_Table3" '如果操作窗口控件
    If  Vars("用户组") = "管理员"  or Vars("用户组") = "车间主管"  or Vars("用户组") = "录入员"  or Vars("用户组") = "车床班长"  '如果用户
        Dim r as Datarow = CurrentTable.Current.DataRow '指定窗口控件行
        Tables("产品工艺").ApplyFilter = False '主表取消筛选
        tables("产品工艺").Position = tables("产品工艺").FindRow(r) '指定窗口行与主表同步
        Tables("产品工艺").AllowEdit = True '主表取消锁定
        Tables("产品工艺").Current.Locked = False '取消锁定行
        Forms("车床产品工艺修改").open() '打开窗口
        Return '否则不执行
    End If
End If
现在我想加一条件:

If e.DataCol.Name = "审核" Then

    If e.NewValue = False Then   

       以上代码 

    End If

End If

但是不成功,不知应该怎么写,谢谢
[此贴子已经被作者于2010-3-12 10:52:01编辑过]

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/11 21:18:00 [显示全部帖子]

搞定,谢谢C版

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/12 10:51:00 [显示全部帖子]

C版,请帮我看一下,怎么一下两种都不行,如去掉审核判断正常。

If e.Table.name = "产品工艺录入_Table3" '如果操作窗口控件
    If  Vars("用户组") = "管理员"  or Vars("用户组") = "车间主管"  or Vars("用户组") = "录入员"  or Vars("用户组") = "车床班长"  '如果用户
        Dim r as Datarow = CurrentTable.Current.DataRow '指定窗口控件行
        Tables("产品工艺").ApplyFilter = False '主表取消筛选
        tables("产品工艺").Position = tables("产品工艺").FindRow(r) '指定窗口行与主表同步
        If e.Col.Name = "审核" Then
            If e.Row("审核") = False Then
                Tables("产品工艺").AllowEdit = True '主表取消锁定
                Tables("产品工艺").Current.Locked = False '取消锁定行
                Forms("车床产品工艺修改").open() '打开窗口
                Return '否则不执行
            End If
        End If
    End If
End If



If e.Col.Name = "审核" Then
    If e.Row("审核") = False Then
        If e.Table.name = "产品工艺录入_Table3" '如果操作窗口控件
            If  Vars("用户组") = "管理员"  or Vars("用户组") = "车间主管"  or Vars("用户组") = "录入员"  or Vars("用户组") = "车床班长"  '如果用户
                Dim r as Datarow = CurrentTable.Current.DataRow '指定窗口控件行
                Tables("产品工艺").ApplyFilter = False '主表取消筛选
                tables("产品工艺").Position = tables("产品工艺").FindRow(r) '指定窗口行与主表同步
                Tables("产品工艺").AllowEdit = True '主表取消锁定
                Tables("产品工艺").Current.Locked = False '取消锁定行
                Forms("车床产品工艺修改").open() '打开窗口
                Return '否则不执行
            End If
        End If
    End If
End If

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/12 11:40:00 [显示全部帖子]

有一窗口表,表为附表,双击附表中的行,打开另一窗口(解锁主表和本行),对本行数据可进行修改。
现在加上对审核的判断,就不能打开另一窗口了

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/12 12:03:00 [显示全部帖子]

还是不行,全局变量我很多地方有用到,其他地方都没为题,而且以上代码在没加审核判断以前也是正常的

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/12 12:09:00 [显示全部帖子]

我窗口还有以下表:
产品工艺录入_Table3
产品工艺录入_Table4
产品工艺录入_Table5
在Table3加了审核判断,就不能打开修改窗口。
Table4、Table5没加审核判断,正常,能打开修改窗口

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/12 13:15:00 [显示全部帖子]

是我自己高错了,原来的代码是双击任意单元的,加上审核判断,多了这一句If e.Col.Name = "审核" Then,只能双击审该列了,上午我还是在行内双击,没注意列位置,取消这句我用C版的示范可以了,下午我在加到我的项目中试试看,在此谢谢C版

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/12 15:53:00 [显示全部帖子]

可以了,再次谢谢C版

 回到顶部