主题：自动增加

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

点击浏览该文件:管理项目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

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

If e.DataCol.Name = "学生姓名" Then
    Dim max As String = e.DataTable.compute("max(学生姓名)", "学生姓名 = '" & e.NewValue & "' or 学生姓名 like '" & e.NewValue & "-*'")
    If max > "" Then
        Dim Result As DialogResult
        Result = MessageBox.Show("是否同人?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = DialogResult.No Then
            If e.NewValue = max Then
                e.NewValue = e.NewValue & "-01"
            Else
                e.NewValue = e.NewValue & "-" & Format(Cint(max.SubString(e.NewValue.length + 1))+1, "00")
            End If
        End If
    End If
End If

有点甜老师还想麻烦您

点击按钮每次增加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 & "-*'"

 

 看6楼。

If e.Form.Controls("学生姓名").Text IsNot Nothing Then
    Dim max As String = DataTables("学生基本信息").compute("max(学生姓名)", "学生姓名 = '" & e.Form.Controls("学生姓名").text & "' or 学生姓名 like '" & e.Form.Controls("学生姓名").text & "-*'")
    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

谢谢！