[求助]分级审核 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助各位老师：我想在结算表中实现分级审核。

1、采购部审核必须满足进货人不能为空,审核人只能从“采购部”的列表项目中选择并为当前用户；

2、品管部审核必须在采购部审核之后,审核人只能从“品管部”的列表项目中选择并为当前用户；

3、结算审核必须在品管部审核之后,第三列、第四列不能为空，审核人只能从“结算审核”的列表项目中选择并为当前用户；

4、支付审核必须在结算审核之后,第六列不能为空，审核人只能从“支付审核”的列表项目中选择并为当前用户；

5、支付审核完成后才允许财务审核，User.Group只能是”财务“。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:分级审核.foxdb

下载信息 [文件大小：下载次数： ]
点击浏览该文件:分级审核.foxdb

我简单做了下前两个要求的示例，后面的差不多就是这个重复，楼主自己复制修改下。

不过从楼主的代码中看出楼主对用户管理的理解有所错误

谢谢!继续学习!

代码如下，参考着改一下。

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

If e.DataRow.IsNull("进货人") Then

msgbox("进货人不能为空")

e.Cancel = True

Else If e.NewValue <> user.name Then

MessageBox.Show("请采购部长审核!")

e.Cancel = True

End If

If e.DataCol.Name = "品管部" Then

If e.DataRow.IsNull("部门审核") Then

msgbox("采购部没审核")

e.Cancel = True

Else If e.NewValue <> user.name Then

MessageBox.Show("品管部检验人员才能进行质量审核!")

e.Cancel = True

End If

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

If e.DataRow.Isnull("品管部") OrElse e.DataRow.IsNull("第三列") OrElse e.DataRow.IsNull("第四列") Then

MessageBox.Show("先由品管部进行质量检查合格后请刘总或徐总审核!")

e.Cancel = True

Else If e.NewValue <> user.name Then

MessageBox.Show("请刘总或徐总审核!")

e.Cancel = True

End If

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

If e.DataRow.IsNull("结算审核") Then

msgbox("没有结算审核")

e.cancel = True

Else If e.DataRow.IsNull("第六列") Then

msgbox("第六列不能为空")

e.Cancel = True

Else If e.NewValue <> user.name Then

MessageBox.Show("请刘总审核!")

e.Cancel = True

End If

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

If e.DataRow.IsNull("支付审核") Then

msgbox("没有支付审核")

e.Cancel = True

Else If e.NewValue=True AndAlso user.group<>"财务" Then

MessageBox.Show("请财务审核!")

e.Cancel = True

End If

谢谢甜老师指教！

主题：[求助]分级审核