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

SQL数据源，#换成单引号'

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

老师在吗？？

 回复64楼

 

SystemReady = False

'写入清空内容的代码

SystemReady = True

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

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

老师，在吗？？

 

 

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

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

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

 

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

此主题相关图片如下：360截图20140708192620734.jpg