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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码提示

共有7320人关注过本帖树形打印复制链接主题：代码提示

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	代码提示 Post By：2017/11/30 20:45:00 [只看该作者] 用户已被锁定

有点甜

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

加好友

发短信

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

Post By：2017/11/30 22:07:00 [只看该作者]

代码改成下面代码，代码不要写到datacolchanging事件，要写到datacolchanged事件

Select Case e.DataCol.name
    Case "毛坯编码","加工工序"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("毛坯编码") = False AndAlso dr.IsNull("加工工序") = False Then
            If e.DataTable.Compute("Count([_Identify])","毛坯编码 = '" & dr("毛坯编码") & "' And 加工工序 = '" & dr("加工工序") & "'") > 1 Then
                MessageBox.Show("已经存在相同工序行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
            End If
        End If
End Select

nuoyan88	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/30 22:58:00 [只看该作者] 用户已被锁定

有点甜

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

加好友

发短信

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

Post By：2017/11/30 23:22:00 [只看该作者]

那你修改表名

e.DataTable 改成 datatables("工序跟踪表")

同样的代码已经给你写过，你要看懂，灵活变通啊。

nuoyan88	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/30 23:53:00 [只看该作者] 用户已被锁定

nuoyan88	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/30 23:57:00 [只看该作者] 用户已被锁定

有点甜

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

加好友

发短信

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

Post By：2017/12/1 9:14:00 [只看该作者]

以下是引用nuoyan88在2017/11/30 23:53:00的发言：
老师，之前改过成以下的，写在了加工工序这个控件TextChanged的事件。但是一直不能达到3楼说的那种效果，请老师帮忙看看，谢谢

Dim str1 As String = e.form.controls("工序号").text

Dim str2 As String = e.form.controls("毛坯编码").text

If DataTables("工序跟踪表").Compute("Count([_Identify])","毛坯编码 = '" & str2 & "' And 加工工序 = '" & str2 & "'") > 0 Then

MessageBox.Show("已经存在相同工序行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

无语

Dim str1 As String = e.form.controls("工序号").text

Dim str2 As String = e.form.controls("毛坯编码").text

If DataTables("工序跟踪表").Compute("Count([_Identify])","毛坯编码 = '" & str2 & "' And 加工工序 = '" & str1 & "'") > 0 Then

MessageBox.Show("已经存在相同工序行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

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

主题：代码提示