以文本方式查看主题

-  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=136578)

--  作者:fengwenliuyan
--  发布时间:2019/6/16 16:35:00
--  但入库表新增一行后,直接在出库表中新增行却无效,必须先选中入库表的其他行,再返回该行才能新增出库行?
已建立模拟关联表“入库表_出库表”,在“开单界面窗口”中操作?
但入库表新增一行后,直接在出库表中新增行却无效,必须先选中入库表的其他行,再返回该行才能新增出库行?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:物流系统.zip



--  作者:fengwenliuyan
--  发布时间:2019/6/16 17:52:00
--  回复:(fengwenliuyan)但入库表新增一行后,直接在出...
求帮助
--  作者:fengwenliuyan
--  发布时间:2019/6/16 20:25:00
--  
求帮助
--  作者:fengwenliuyan
--  发布时间:2019/6/17 7:21:00
--  
求帮助
--  作者:fengwenliuyan
--  发布时间:2019/6/17 8:49:00
--  
求帮助
--  作者:有点甜
--  发布时间:2019/6/17 9:01:00
--  

增加按钮

 

Dim t As Table =  Tables("开单界面窗口_入库表")
If t.current("客户") = Nothing Then Return
Dim dr As Row = Tables("开单界面窗口_出库表").AddNew()
dr("客户") = t.current("客户")

Dim r As Table = Tables("出库表")
r.Position = r.rows.count-1

Dim d As Table = Tables("开单界面窗口_出库表")
d.Position = d.rows.count-1

t.RaiseCurrentChanged