以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于父表子表修改问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62564)
--  作者：as2517
--  发布时间：2015/1/4 18:18:00
--  [求助]关于父表子表修改问题
今天终于看到2位老师了，

销售明细表（父）与资金流水（子），建立了关联但是我没点同步更新，点了同步更新以后。关联列在输入内容的时候爱出问题。

问题是，我在销售明细表修改内容的时候，资金流水不更新。有什么好的方法么？我在帮助里面看到了好多，用在上面都不管用，请老师帮忙看看。谢谢
[此贴子已经被作者于2015-1-4 19:43:30编辑过]
--  作者：有点甜
--  发布时间：2015/1/4 19:30:00
--  

DataCochanged事件，加入代码

 


Select Case e.DataCol.name
    Case "销售编号"
        Dim dr As DataRow = DataTables("资金流水").Find("业务编号 = \'" & e.OldValue & "\'")
        If dr Is Nothing Then
            dr = DataTables("资金流水").AddNew()
            dr("业务日期") = e.DataRow("日期")
            dr("收入金额") = e.DataRow("实收金额")
            dr("客户姓名") = e.DataRow("客户姓名")
            dr("银行账号名称") = e.DataRow("银行账号名称")
        Else
            dr("销售编号") = e.DataRow("销售编号")
        End If
    Case Else
        Dim dr As DataRow = DataTables("资金流水").Find("业务编号 = \'" & e.DataRow("销售编号") & "\'")
        If dr IsNot Nothing Then
            dr("业务日期") = e.DataRow("日期")
            dr("收入金额") = e.DataRow("实收金额")
            dr("客户姓名") = e.DataRow("客户姓名")
            dr("银行账号名称") = e.DataRow("银行账号名称")
        End If
End Select
--  作者：as2517
--  发布时间：2015/1/4 19:43:00
--  
Dim dr As DataRow = DataTables("资金流水").Find("业务编号 = \'" & e.DataRow("销售编号") & "\'")
        If dr IsNot Nothing Then
            dr("业务日期") = e.DataRow("日期")
            dr("收入金额") = e.DataRow("实收金额")
            dr("客户姓名") = e.DataRow("客户姓名")
            dr("银行账号名称") = e.DataRow("银行账号名称")
        End If

谢谢老师，我需要这句