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


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

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

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望: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编辑过]

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/3/11 20:25:00 [只看该作者]

If e.Col.Name = "审核" Then
    If e.Row("审核") = False Then
        '……
    End If
End If

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/11 21:18:00 [只看该作者]

搞定,谢谢C版

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望: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

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/3/12 11:23:00 [只看该作者]

不知道什么东东“不行”? 过程和结果要讲述清楚才好,下面只是猜测:

Dim r as Datarow = CurrentTable.Current.DataRow '指定窗口控件行  用具体的Tables("xxxx")吧
        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() '打开窗口
            else
                Return '否则不执行
            End If
        End If

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/12 11:40:00 [只看该作者]

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

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/3/12 11:54:00 [只看该作者]

经测试下面的代码没有问题,这样看来是你全局变量赋值问题了。

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

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/3/12 12:03:00 [只看该作者]

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

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/3/12 12:05:00 [只看该作者]

检查登录的用户名。

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/3/12 12:08:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
总数 14 1 2 下一页