afterLoad事件
vars("次数") = 0
click事件
vars("次数") += 1Dim dr = dt.DataRows(0) '临时表的行If e.Form.Controls("PassWord").Value = dr("用户密码") Then msgbox("正确")Else If vars("次数") > 3 Then msgbox("超过3次错误") e.form.close Else msgbox(vars("次数")) End IfEnd If