主题：项目中的几个问题，请老师给予解决。

老师，个案申请和行销文件可以共存，是改了什么地方吖~~？？

老师，好像文件编码的问题，还没有帮我解决俄？？？？

3.问题：就是不同用户登陆新建文件后都会生成编号，但是这个编号为什么不是唯一的。。。

比如：

2014-0501，是西南区的

2014-0501，是华北区的

这样就不能在全局上用编号识别，我的目的是，无论哪个用户登陆，他们生成的编号都是不会重复的。。

这个问题，我们应该如何解决的？？？

老师出现问题了~~
此主题相关图片如下：360截图20140511103302946.jpg

老师，我已经成功了，我用网络数据做了，OK，谢谢老师指点~~~

老师在吗？？

打回修改的按钮这样写吗？？

要不要将“取消审核、取消批准、取消终审、取消裁决 的代码拷贝进去”，但我这样做了，还是不行，因为我设置，了自由用户自己才能清空批复内容。。。

老师，在吗？？

 

 

要不要将“取消审核、取消批准、取消终审、取消裁决 的代码拷贝进去”，但我这样做了，还是不行，因为我设置，了自由用户自己才能清空批复内容。。。

其中行销部主管的代码是：

If User.roles = "行销部主管" Then
    If Tables("个案申请").Current.IsNull("终审") Then
        Tables("个案申请").Current("批准") = Nothing
        Tables("个案申请").Current("批准日期") = Nothing
        Tables("个案申请").Current("批准意见") = Nothing
        Tables("个案申请").Current("审核") = Nothing
        Tables("个案申请").Current("审核日期") = Nothing
        Tables("个案申请").Current("审核意见") = Nothing
        Tables("个案申请").Current.Save()
    Else
        MessageBox.Show("此行已被终审,不能打回!")
    End If
Else
    MessageBox.show("你无打回权限!")
End If

 

行销部经理的代码是

If User.roles = "行销部经理" Then
   If Tables("个案申请").Current.IsNull("裁决") Then
    Tables("个案申请").Current("终审") = Nothing
    Tables("个案申请").Current("终审日期") = Nothing
    Tables("个案申请").Current("终审意见") = Nothing
        Tables("个案申请").Current("批准") = Nothing
        Tables("个案申请").Current("批准日期") = Nothing
        Tables("个案申请").Current("批准意见") = Nothing
        Tables("个案申请").Current("审核") = Nothing
        Tables("个案申请").Current("审核日期") = Nothing
        Tables("个案申请").Current("审核意见") = Nothing
    Tables("个案申请").Current.Save()
Else
    MessageBox.Show("此行已被裁决,不能打回修改!")
End If
Else
    MessageBox.show("你无打回修改权限!")
End If

 

小张总的代码是

If User.roles = "boss" Then
    Tables("个案申请").Current("裁决") = Nothing
    Tables("个案申请").Current("裁决日期") = Nothing
    Tables("个案申请").Current("裁决意见") = Nothing
    Tables("个案申请").Current("终审") = Nothing
    Tables("个案申请").Current("终审日期") = Nothing
    Tables("个案申请").Current("终审意见") = Nothing
    Tables("个案申请").Current("批准") = Nothing
    Tables("个案申请").Current("批准日期") = Nothing
    Tables("个案申请").Current("批准意见") = Nothing
    Tables("个案申请").Current("审核") = Nothing
    Tables("个案申请").Current("审核日期") = Nothing
    Tables("个案申请").Current("审核意见") = Nothing
    Tables("个案申请").Current.Save()
Else
    MessageBox.show("你无打回修改权限!")
End If

 

如果能“打回修改，直接到最初状态