以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口快速录入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58124)
--  作者：华琴
--  发布时间：2014/10/11 20:30:00
--  窗口快速录入
双击单元格后，弹出录入窗口，但录入的值总是前一次所选行的值。怎么办呢？？

表的DoubleClick代码为：

Forms("出货单填制").Open
Tables("出货凭证表").AddNew()
Dim tbl As Table = Tables("查询_订单表2")
If tbl.Current IsNot Nothing Then
 Tables("出货凭证表").Current("客户") = tbl.Current("客户")
End If


拜托各位高手指点一下……
--  作者：sdlll
--  发布时间：2014/10/11 21:15:00
--  
要在Tables("查询_订单表2")所在控件的双击事件中设置Tables("出货凭证表").Current("客户") = tbl.Current("客户")
--  作者：有点甜
--  发布时间：2014/10/12 9:26:00
--  

这个意思？

 

Forms("出货单填制").Open
Dim tbl As Table = Tables("查询_订单表2")
If tbl.Current IsNot Nothing Then
    Tables("出货凭证表").Current("客户") = tbl.Current("客户")
End If
Tables("出货凭证表").AddNew()
--  作者：华琴
--  发布时间：2014/10/12 9:53:00
--  
我是想，  从未交订单中 双击某个订单  然后弹出出货单填制的窗口 并自动导入相应的数据    
    可是双击后，导入的数据  总是前一次选的数据
--  作者：有点甜
--  发布时间：2014/10/12 10:07:00
--  

 那你尝试这样写

 

Dim nr As Row = Tables("出货凭证表").AddNew()
Dim tbl As Table = Tables("查询_订单表2")
If tbl.Current IsNot Nothing Then
    nr("客户") = tbl.Current("客户")
End If

Forms("出货单填制").Open
--  作者：华琴
--  发布时间：2014/10/12 10:30:00
--  
搞定了   ！
   谢谢！！  有点甜。