以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何实现这样的功能?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59569)

--  作者:jswjyjf
--  发布时间:2014/11/6 16:27:00
--  如何实现这样的功能?
在进销存系统中 ,进货单录入 涉及到库存 往来的变化,
我的思路是这样的 ,录入时 保存的功能 ,只保存进货单和进货单明细,审核的功能是1.将保存好的进货单 金额信息 转到对应的往来单位,2.将保存好的进货单 数量 金额信息 转到对应的库存产品中去。  审核后 不能修改了。结果是正确的,但是 审核撤销 修改后 ,往来单位 和库存如何相应变化 

求大神指点

--  作者:jswjyjf
--  发布时间:2014/11/6 16:29:00
--  
哦 瞬间开窍 
--  作者:jswjyjf
--  发布时间:2014/11/6 16:44:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20141106162159.jpg
图片点击可在新窗口打开查看

--  作者:jswjyjf
--  发布时间:2014/11/6 16:46:00
--  
如何进货单 审核了 ,就不能修改进货单及进货单明细 ,如何实现
--  作者:有点甜
--  发布时间:2014/11/6 16:47:00
--  
 设置控件和表不能被编辑即可。
--  作者:jswjyjf
--  发布时间:2014/11/6 16:52:00
--  

如果下一条没有审核的话 只读就取消 是吗


--  作者:有点甜
--  发布时间:2014/11/6 16:53:00
--  

 在currentchanged写代码,如果已审核,就设置为只读。


--  作者:jswjyjf
--  发布时间:2014/11/6 17:16:00
--  

If Tables("进货单").Current IsNot Nothing AndAlso Tables("进货单").Current.Isnull("进货单号") = False Then
    DataTables("进货单明细").LoadFilter = "进货单号 = \'" & Tables("进货单").Current("进货单号") & "\'"
Else
    DataTables("进货单明细").LoadFilter = "进货单号 is null"
End If
DataTables("进货单明细").Load

 

这个代码 放在currentchanged 事件中 可以吗

 


--  作者:有点甜
--  发布时间:2014/11/6 17:35:00
--  

 不行,currentchanged 不要load数据。

 

 建议你放在positionchanged


--  作者:jswjyjf
--  发布时间:2014/11/6 19:17:00
--  

在没有排序 汇总 情况下 好像两个事件一样的