If not Tables("机构信息表.员工信息表").Current("员工状态") Like ("'*正常*'") Then
MessageBox.Show("改变员工状态请在备注中说明改变原因","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("机构信息表.员工信息表").Current("备注")= Tables("机构信息表.员工信息表").Current("备注")&chr(10)&"原因说明:"
Forms("员工备注").Open()
Tables("机构信息表.员工信息表").current.Locked=True
Tables("机构信息表.员工信息表").Current("机构码") = "0000"
Else
MessageBox.Show("状态正常的员工不允许删除,请核查!","注意",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If
当点击正常时,程序流程依旧执行then下的语句,这是何故?