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


  共有14722人关注过本帖平板打印复制链接

主题: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编辑过]

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