以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][讨论] 怎么将子表的字段内容复制到父表的指定字段中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96981)

--  作者:积水成渊
--  发布时间:2017/3/3 14:58:00
--  [求助][讨论] 怎么将子表的字段内容复制到父表的指定字段中
有A和B两张表进行了关联, A表为父表,B为子表,子表有几个个字段跟父表的字段同名,现在我需要将B表的字段(工资)内容复制到父表的字段(工资)中去,该怎么编写相应的代码,求方法!
--  作者:狐狸爸爸
--  发布时间:2017/3/3 15:13:00
--  
这个逻辑有问题吧?
父表一个行对应子表有多个行,那么复制子表哪一行到父表呢?

http://www.foxtable.com/webhelp/scr/2292.htm
http://www.foxtable.com/webhelp/scr/2490.htm

--  作者:积水成渊
--  发布时间:2017/3/3 15:48:00
--  
图片点击可在新窗口打开查看是这样的假如父表有 工号 工资,补贴,扣款四个字段,子表有工号,项目,新值三个字段,其中,工号为关联字段,项目字段为下拉框(选项有:工资,补贴,扣款)。子表的一行对应父表的一个字段。我在将子表字段复制到父表时,会先进行判断,如果项目字段的内容为工资时,我将新值的内容复制到父表的工资字段中去。所以逻辑应该没有问题。
--  作者:有点蓝
--  发布时间:2017/3/3 16:01:00
--  
参考:http://www.foxtable.com/webhelp/scr/1453.htm
--  作者:有点色
--  发布时间:2017/3/3 16:31:00
--  

子表datacolchanged事件

 

If e.DataCol.Name = "单价"
    Dim Filter As String = "[品名] = \'" & e.DataRow("品名") & "\'"
    Dim dr As DataRow = DataTables("父表").find(Filter)
    If dr IsNot Nothing Then
        dr("单价") = e.DataRow("单价")
    End If
End If


--  作者:积水成渊
--  发布时间:2017/3/4 10:26:00
--  
感谢大神们提供的方法