自动增加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动增加

共有3814人关注过本帖树形打印复制链接主题：自动增加

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/17 17:57:00 [显示全部帖子]

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/18 9:45:00 [显示全部帖子]

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/18 14:07:00 [显示全部帖子]

[此贴子已经被作者于2014-12-18 14:23:10编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/18 14:21:00 [显示全部帖子]

看6楼。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/18 14:26:00 [显示全部帖子]

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

下一主题 >> << 上一主题

主题：自动增加