这个提示怎么做啊.

小何

如果在一行里已输入收入,那再次输入支出时,就提示不能输入支了.如果已输入支出,再次输入收入时.就提示不能输入收入.

xinle

Private Sub 收入_GotFocus()
If Me.支出 > 0 Then
MsgBox "对不起，你已经在此行中输入了支出，不能再输入收入！", vbExclamation + vbOKOnly, "提示"
Me.支出.SetFocus
End If
End Sub

Private Sub 支出_GotFocus()
If Me.收入 > 0 Then
MsgBox "对不起，你已经在此行中输入了收入，不能再输入支出！", vbExclamation + vbOKOnly, "提示"
Me.收入.SetFocus
End If
End Sub

还有可以用LOCKED（锁定控件）的方法，
当输入收入后，锁定支出，
输入支出后，锁定收入

小何

LOCKED锁定控件在哪里,怎么用啊,这个我没用过.
那台果我想在输入支出前,必须输入收入,这个提示怎么做啊.请指教!

[此贴子已经被作者于2004-2-4 16:46:54编辑过]

xinle

当收入大于0时，锁定支出，不能输入
Private Sub 支出_GotFocus()
If Me.收入 > 0 Then
me.支出.locked=true
Me.收入.SetFocus
else
me.支出.locked=false
End If
End Sub

想在输入支出前,必须输入收入,改一下上面的就行

Private Sub 支出_GotFocus()
If isnull(Me.收入) or me.收入= 0 Then
MsgBox "对不起，收入不能为空！", vbExclamation + vbOKOnly, "提示"
Me.收入.SetFocus
End If
End Sub

[此贴子已经被作者于2004-2-4 17:07:36编辑过]