本文共 518 字，大约阅读时间需要 1 分钟。

一、当点修改信息之后，点更新数据（并没有更改东西），仍然显示更新数据成功。

Dim flag1(4) As BooleanPrivate Sub editCommand_Click()    Dim i As Integer '先循环 先使它为true    For i = 0 To 3    flag1(i) = True    Next i

第二部：

Private Sub txtclassno_Change() '当它改变的时候为falseflag1(0) = FalseEnd SubPrivate Sub txtClassroom_Change()flag1(3) = FalseEnd SubPrivate Sub txtDirector_Change()flag1(2) = FalseEnd Sub

第三部：

If flag1(0) = True And flag1(1) = True And flag1(2) = True And flag1(3) = True Then    '如果出现false，则直接进行 下一步    MsgBox "请修改信息！"    Exit Sub    End If