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


  共有1576人关注过本帖树形打印复制链接

主题：当订购数量，超过计划量，如何防止离开当前编辑单元格
帅哥哟，离线，有人找我吗？
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
End If
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4633 积分：33809 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2017/3/12 0:03:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
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


加好友 发短信
等级：六尾狐 帖子：1242 积分：9386 威望：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
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

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询