以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  出库数量输入后检测没有大于库存表中的入库数,如何解决?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67017)

--  作者:冰锋
--  发布时间:2015/4/17 15:31:00
--  出库数量输入后检测没有大于库存表中的入库数,如何解决?

现有一张出库明细表和库存表,现如今想在出库明细表中输入“数量”列的值后,与库存表中的“入库数量”作判断,数量不得大于入库数量。如何操作,边学边做一下子有点写不出代码,请各位指导一下。


--  作者:Bin
--  发布时间:2015/4/17 15:34:00
--  
最好是先按部就班学习一遍帮助,再动手做,  图文教程觉得阅读困难,可以看看论坛置顶的教程视频

DataColChanging事件利用FIND http://www.foxtable.com/help/topics/0396.htm

if e.datacol.name="数量" then
   dim dr as datarow = datatables("库存表").find("商品编号=\'" & e.datarow("商品编号") & "\'")
   if dr isnot nothing then
         if e.datarow("数量")>dr("入库数量") then
              messagebox.show("数量不得大于入库数量")
             e.cancel=true
         end if
   end if
end if


--  作者:冰锋
--  发布时间:2015/4/17 16:05:00
--  
谢谢阿BIN老师,谢谢!