主题：自动增加

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.zip

学生姓名有重复，自动在学生姓名后加“-1”，比如：学生姓名输入框输入了 “杨琴”，自动查出“杨琴”信息，但此杨琴和要输入的杨琴不是同人，电击按钮 “验”提示：杨琴 已有基本信息,是否同人，电击 否 时在学生姓名输入框输入自动增加“杨琴-1”。请指点代码？谢谢！

有点甜老师：学生姓名有可能多个，比如：杨琴、杨琴-1、杨琴-2  等,"-"后边"1"可以向自动编号一样自动增加

有点甜老师还想麻烦您

点击按钮每次增加1

 

按钮代码

If e.Form.Controls("学生姓名").Value IsNot Nothing Then
    Dim max As String = ？

    If max > "" Then
        Dim Result As DialogResult
        Result = MessageBox.Show(""& e.Form.Controls("学生姓名").text & " 已有基本信息,是否同人?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = DialogResult.No Then
            If e.Form.Controls("学生姓名").text = max Then
                e.Form.Controls("学生姓名").text = e.Form.Controls("学生姓名").text & "-01"
            Else
                e.Form.Controls("学生姓名").text = e.Form.Controls("学生姓名").text & "-" & Format(Cint(max.SubString(e.Form.Controls("学生姓名").text.length + 1))+1, "00")
            End If
        End If
    End If
End If

 

有点甜老师输入框里，没点击验按钮一次增加1 

此主题相关图片如下：qq截图20141217221358.png

Dim max As String = “e.Form.Controls("学生姓名").text & "' or e.Form.Controls("学生姓名").text  like '" & e.Form.Controls("学生姓名").text & "-*'"

 

谢谢！