当订购数量，超过计划量，如何防止离开当前编辑单元格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 当订购数量，超过计划量，如何防止离开当前编辑单元格

共有2053人关注过本帖树形打印复制链接主题：当订购数量，超过计划量，如何防止离开当前编辑单元格

szsmall

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

加好友

发短信

等级：幼狐帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00

当订购数量，超过计划量，如何防止离开当前编辑单元格 发帖心情

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

一个采购系统，计划单明细和订购单明细关联。如果计划量10个，订购量输入11个时，如何禁止离开当前单元格。

在订购单明细DataColChanged ,用以下代码，单元格数值，还是可以离开。DataColChanging，因为未写入值，很难和计划单做对比，尤其是一个计划单对应多个订购单。所以想，先把值写进去，再根据未够数量判断，然后锁定在单元格，改好后才允许离开。

If e.DataCol.Name = "数量" Then

Dim pr As DataRow =e.DataRow.GetParentRow("计划单明细")

If pr("计划单未购数量") < 0 Then

MessageBox.Show("订购量超过计划量")

e.Cancel = True

End If

y2287958

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

加好友

发短信

等级：狐神帖子：4751 积分：34563 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2017/3/12 0:03:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/0617.htm

szsmall

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

加好友

发短信

等级：幼狐帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00

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

ValidateEdit满足不了要求，现在希望录入订购数量时，只要计划单明细“未购数量”，为负数，就出现警告窗口，并留在单元格里。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:cai 170312.table

wyz20130512

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

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2017/3/12 13:34:00 [只看该作者]

订购单明细表的ValidateEdit事件：

If e.Col.Name = "数量" Then

Dim dr As DataRow = e.Row.DataRow.GetParentRow("计划单明细")

If dr("未购数量") < 0 Then

MessageBox.Show("订购量超过计划量")

　　　e.Cancel = True

End If

[此贴子已经被作者于2017/3/12 13:34:56编辑过]

szsmall

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

加好友

发短信

等级：幼狐帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00

Post By：2017/3/12 22:55:00 [只看该作者]

ValidateEdit，dr("未购数量")仍然是之前的值，并不是本次输入后，实时的未购量。

只好放在DataColChanged，数量变了后，再做判断。超了，恢复旧值。不知道这样会不会有其他问题

If e.DataCol.Name = "数量" Then

Dim pr As DataRow =e.DataRow.GetParentRow("计划单明细")

If pr("未购数量") < 0 Then

MessageBox.Show("订购量超过计划量")

e.DataRow("数量") = e.OldValue

End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/13 0:19:00 [只看该作者]

If e.Col.Name = "数量" Then
    Dim dr As DataRow = e.Row.DataRow.GetParentRow("计划单明细")
    If dr("未购数量")+e.Row("数量")-val(e.text) < 0 Then
        MessageBox.Show("订购量超过计划量")
   e.Cancel = True
    End If
End If

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

主题：当订购数量，超过计划量，如何防止离开当前编辑单元格