标题: 如何控制输入某个字段后，整行数据就修改不了。 [打印本页] 作者: pwj2009 时间: 2011-8-11 09:16 标题: 如何控制输入某个字段后，整行数据就修改不了。 现窗体中有字段A B C D 。属性是可编辑。我要设置当D不为空的时候，ABC都不可以修改，
为空的时候就可以修改ABC,要如何控制？作者: ynjxw 时间: 2011-8-11 09:27
用成为当前事件作者: pwj2009 时间: 2011-8-11 09:36
成为当前事件。能说下具体的操作吗？谢谢！作者: ynjxw 时间: 2011-8-11 09:49
Private Sub Form_Current()
if len(nz(me.D))=0 then
me.a.locked=false
me.b.locked=false
me.c.locked=false
else
me.a.locked=true
me.b.locked=true
me.c.locked=true
end if
End Sub
我这个是最笨的办法了。 作者: pwj2009 时间: 2011-8-11 10:04
还是不行。！！这个办法。我测试了一下不行！郁闷啊 作者: pwj2009 时间: 2011-8-11 10:09
搞错了点东西，代码是可行的。谢谢！不过这方法有点麻烦。要是我有N个字段不是要加到晕！！作者: zyp 时间: 2011-8-11 11:15
用"有脏数据时"事件:
Private Sub Form_Dirty(Cancel As Integer)
If isnull(Me.D)=false Then
Cancel = True
MsgBox "不可以更改", vbCritical
End If
End Sub作者: zww3008 时间: 2011-8-11 23:50
Private Sub Form_Current()
Me.AllowEdits=IsNull(Me.D)
end if 作者: chaosheng 时间: 2011-8-12 12:05
beforeupdate事件中判断D非空即撤消修改
