主题：关于DataColChanging的设置

有点甜，老师很棒~~谢谢，老师~~感谢老师，我会努力学习的~~

老师，测试还有一点小问题，就是现在我用西北分区登陆，然后我在WEBBROWER录入内容，然后按保存，然后我多手点了一点审核的时间，或是批准的时间，然后系统还是能录入到，表中；
此主题相关图片如下：360截图20140423144650046.jpg


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


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

这样导致，如果用行销部主管登陆和行销经理登陆，都无法给审核和审批意见了

 

批意见之前，可以先点取消。

 

你改一下代码吧，用下面这一段，测试ok的

 

Select Case e.DataCol.name
    Case "审核意见", "审核日期", "审核"
        If user.roles = "行销部主管" Then
            If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("审核") = False  Then
                msgbox("已审核")
                e.cancel = True
            Else If e.DataRow.IsNull("批准日期") = False OrElse e.DataRow.IsNull("终审意见") = False Then
                msgbox("已提交,不能再修改")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "批准意见" , "批准日期", "批准"
        If User.roles = "行销部经理" Then
            If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("批准") = False  Then
                msgbox("已批准")
                e.Cancel = True
            Else If e.DataRow.IsNull("终审日期") = False Then
                msgbox("已提交")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "终审意见", "终审日期", "终审"
        If User.roles = "boss" Then
            If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("终审") = False Then
                msgbox("已终审")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "个案申请","日期","编号","文件名称","分区","内容"
        Select Case User.Group
            Case "东北区", "西北区", "华北区", "华东区", "东南区", "华南区", "西南区"
                If e.DataRow.IsNull("审核日期") = False Then
                    e.Cancel = True
                End If
            Case Else
                e.Cancel = True
        End Select
End Select

显示

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.3.8.1
错误所在事件：窗口,功能栏,TimerTick
详细错误信息：
未将对象引用设置到对象的实例。

有问题

 

不会有这个问题，你重新启动项目看看。

好的，我先看看

AfterLoad

代码如下：

 

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
'web.OfficeToolBar = True
web.Address = ProjectPath & "kindeditor\e.html"
e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")
e.Form.TimerEnabled = True
e.Form.TimerInterval = 500

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

重新启动后还是出现

 

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.3.8.1
错误所在事件：窗口,功能栏,TimerTick
详细错误信息：
未将对象引用设置到对象的实例。

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

改一下，afterload和timertick事件

 

If Tables("个案申请").current IsNot Nothing Then
    'e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")

End If

 

-------------------------------

 

If Tables("个案申请").current IsNot Nothing Then
    'e.Form.Controls("Webbrowser").text = Tables("个案申请").current("内容")

End If