以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]执行次数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86620)
--  作者：zcgmxf
--  发布时间：2016/6/21 22:32:00
--  [求助]执行次数

老师，如果 5次输入错误 就退出系统，代码该如何修改？

 

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As DataTable = DataTables("激活码")
If txt = "" Then
    tbl.LoadFilter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.LoadFilter = "激活码 Like " & txt
    tbl.Load()
   
    If tbl.DataRows.Count = 0 Then
        MessageBox.Show("您输入的激活码不正确,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    End If
End If
--  作者：大红袍
--  发布时间：2016/6/21 23:00:00
--  

Static cs As Integer = 1

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As DataTable = DataTables("激活码")
If txt = "" Then
    tbl.LoadFilter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.LoadFilter = "激活码 Like " & txt
    tbl.Load()
   
    If tbl.DataRows.Count = 0 Then

        cs += 1
        MessageBox.Show("您输入的激活码不正确,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    End If

    If cs > 5 then then e.Form.Close
End If
--  作者：zcgmxf
--  发布时间：2016/6/23 10:32:00
--  
红袍老师， cs += 1 中 += 是什么意思，在其它的地方也看到过，一直没搞懂。
--  作者：大红袍
--  发布时间：2016/6/23 10:33:00
--  

cs += 1

 

等同于

 

cs = cs + 1