关于领导审批功能的疑惑 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我没有说清楚，是该表在审批后不能编辑，该表数据的录入窗口依然能编辑

DatacolChanging事件，写代码

If e.DataCol.Name = "审批" Then '只有经理才能审批
    If User.Group <> "行政办" Then
        e.Cancel = True
    End If
ElseIf e.DataRow("审批") = True Then '如果此行已经审批了,则禁止修改
    e.Cancel = True
End If

If e.DataRow.IsNull("审批人") = False Then '如果审批人列不为空
e.Cancel = True '则禁止编辑
End If

表A编辑窗口中增加一个“审批”按钮，此按钮代码为：

If User.Group = "行政办" Then
    Tables("表A").Current("审批人") = User.Name
    Tables("表A").Current("审批日期") = Date.Today()
Else
    MessageBox.show("你无审批权限!")
End If

然后该表编辑窗口再增加一个“取消审批”按钮，代码如下：

If User.Group = "行政办" Then
    Tables("表A").Current("审批人") = Nothing
    Tables("表A").Current("审批日期") = Nothing
Else
    MessageBox.show("你无取消审批权限!")
End If

表A增加一个“审批”逻辑列，并在表属性

DatacolChanging事件，写代码

If e.DataRow.IsNull("审批人") = False Then '如果审批人列不为空
e.Cancel = True '则禁止编辑
End If

这样设置后还是不行。点击审批按钮后，审批人列有名字，但审批日期无内容，且审批逻辑列也点击不了，表中内容及录入窗口中的内容依然可以更改

压缩文件请看附件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3_201503200825.zip

已上传，劳烦老师帮忙解决

怎么不行? 测试不能修改啊

不会吧。。。。这么衰吗？？？

你再看下这次上传的文件。还有一个问题是，打开狐表后总是会弹出一个错误提示框，点击“继续”后又可以使用，但一小会后又会重复出现，求解决。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.zip

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建 microsoft word 文档.zip

回复19楼，打开没有弹出错误；如果你的错，就删除项目的bin文件夹，或者重装foxtable，或者重装.net framework

主题：关于领导审批功能的疑惑