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

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

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

Datacolchanging事件，代码

If e.DataCol.Name = "学生姓名" Then
    Dim fdr As DataRow = e.DataTable.Find("学生姓名 = \'" & e.NewValue & "\' or 学生姓名 = \'" & e.NewValue & "-1\'")
    If fdr IsNot Nothing Then
        Dim Result As DialogResult
        Result = MessageBox.Show("是否同人?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = DialogResult.No Then
            e.NewValue = e.NewValue & "-1"
        End If
    End If
End If

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 & "-*\'"