以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口表数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75557)

--  作者:dexinglong
--  发布时间:2015/10/10 11:17:00
--  [求助]窗口表数据
表”送货“中的查询窗口表绑定的是”订单“表的副本,希望双击订单表的项目,自动在”销售“表中新增对应的数据(数据主要有当前"送货"表的OUTID,"订单"表的POID及数量),同时将删除窗口表的该项数据。
备注:”送货“与”销售“表通过"OUTID"关联,
求解窗口表的DoubleClick事件

可能是我表达有误,请参考附件实例中,帮忙解决,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.zip

[此贴子已经被作者于2015/10/10 11:44:49编辑过]

--  作者:狐狸爸爸
--  发布时间:2015/10/10 11:23:00
--  

if e.Table.Name = "窗口1.Table1"  AndAlso e.Col.Name = "项目" Then

    e.Cancel = True

    Dim pr As DataRow = e.Row.DataRow.GetParentRow("销售") 

    pr("数量")  = pr("数量") + e.DataRow("数量")

    e.Row.Delete

End If

 


--  作者:Hyphen
--  发布时间:2015/10/10 11:30:00
--  

--  作者:dexinglong
--  发布时间:2015/10/10 11:46:00
--  
可能是我表达有问题,麻烦老师参考附件帮忙解决,谢谢
--  作者:Hyphen
--  发布时间:2015/10/10 12:01:00
--  

就是销售表的DoubleClick事件,加上判断

 

If e.Table.Name = "送货.销售" Then
    msgbox("OUTID:" & e.Row("OUTID"))
End If


--  作者:dexinglong
--  发布时间:2015/10/10 12:36:00
--  
Hyphen 老师的回答解决不了我的问题,谢谢
--  作者:大红袍
--  发布时间:2015/10/11 11:37:00
--  
e.Cancel = True
Dim nr As Row = Tables("送货.销售").Addnew
nr("POID") = e.Row("id")
nr("送货数量") = e.Row("数量")
e.Row.Delete