以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一个订单表、一个订单明细表。一条订单对应多条明细,想在订单表输入结账日期、fa piao号码后,所对应的订单明细表中所有项也同时输入,请问怎样才能实现  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77002)

--  作者:穆紫1212
--  发布时间:2015/11/9 15:59:00
--  一个订单表、一个订单明细表。一条订单对应多条明细,想在订单表输入结账日期、fa piao号码后,所对应的订单明细表中所有项也同时输入,请问怎样才能实现
一个订单表、一个订单明细表。
一条订单对应多条明细,想在订单表输入结账日期、发票号码后,所对应的订单明细表中所有项也同时输入,请问怎样才能实现

--  作者:大红袍
--  发布时间:2015/11/9 16:00:00
--  

直接引用父表的数据即可

 

http://www.foxtable.com/help/topics/0106.htm

 


--  作者:穆紫1212
--  发布时间:2015/11/9 16:10:00
--  
那几列都不是表达式列,也能引用吗
--  作者:大红袍
--  发布时间:2015/11/9 16:16:00
--  
以下是引用穆紫1212在2015/11/9 16:10:00的发言:
那几列都不是表达式列,也能引用吗

 

那你转换成表达式列呗。


--  作者:穆紫1212
--  发布时间:2015/11/9 16:18:00
--  
转换后怕再连接其他表的时候出现问题,有没有别的办法
--  作者:大红袍
--  发布时间:2015/11/9 16:23:00
--  

 编写datacolchanged事件

 

If e.DataCol.Name = "结账日期" Then

    DataTables("订单明细表").ReplaceFor("结账日期", e.newValue, "订单编号 = \'" & e.DataRow("订单编号") & "\'")

End If


--  作者:穆紫1212
--  发布时间:2015/11/9 16:41:00
--  
谢谢版主!

成功了!

再麻烦一下下,板主给出的是一列,如果有多列,代码该怎样改

--  作者:大红袍
--  发布时间:2015/11/9 16:42:00
--  

If e.DataCol.Name = "结账日期" Then

    DataTables("订单明细表").ReplaceFor("结账日期", e.newValue, "订单编号 = \'" & e.DataRow("订单编号") & "\'")

End If

 

If e.DataCol.Name = "发票号码" Then

    DataTables("订单明细表").ReplaceFor("发票号码", e.newValue, "订单编号 = \'" & e.DataRow("订单编号") & "\'")

End If


--  作者:大红袍
--  发布时间:2015/11/9 16:43:00
--  

或者

 

Select case e.DataCol.Name

    case "发票号码", "结账日期"

        DataTables("订单明细表").ReplaceFor(e.DataCol.Name, e.newValue, "订单编号 = \'" & e.DataRow("订单编号") & "\'")

End Select


--  作者:穆紫1212
--  发布时间:2015/11/9 16:49:00
--  
图片点击可在新窗口打开查看搞定了,谢谢!