以下是引用有点甜在2014-8-29 11:21:00的发言:
点击修改的时候 vars("状态") = "修改"
If vars("状态") Is Nothing OrElse vars("状态") <> "修改" AndAlso e.Col.name <> "手机号码" AndAlso e.Col.name <> "QQ" AndAlso e.Col.name <> "地方平台"
e.cancel=True
End If
好像报错了如下。另外点击了修改,状态列好像也没改为修改。
.NET Framework 版本:2.0.50727.8009
Foxtable 版本:2014.8.24.1
错误所在事件:表,技术支持信息表,PrepareEdit
详细错误信息:
调用的目标发生了异常。
未将对象引用设置到对象的实例。
修改按钮的代码如下:
prepareedit代码如下:
If User.IsRole("审核") Then
e.Form.Controls("新增").Enabled = True
Else
e.Form.Controls("新增").Enabled = False
If vars("状态") Is Nothing OrElse vars("状态") <> "修改" AndAlso e.Col.name <> "手机号码" AndAlso e.Col.name <> "QQ" AndAlso e.Col.name <> "地方平台"
e.cancel=True
End If
End If
修改按钮代码如下:
Dim r As Row = Tables("技术支持信息表").Current
r.locked = False
vars("状态") = "修改"
DataTables.save()