Foxtable(狐表)用户栏目专家坐堂 → [求助]关于父表子表修改问题


  共有3126人关注过本帖树形打印复制链接

主题:[求助]关于父表子表修改问题

帅哥哟,离线,有人找我吗?
as2517
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:150 积分:1125 威望:0 精华:0 注册:2014/12/13 8:54:00
[求助]关于父表子表修改问题  发帖心情 Post By:2015/1/4 18:18:00 [只看该作者]

今天终于看到2位老师了,

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:150 积分:1125 威望:0 精华:0 注册:2014/12/13 8:54:00
  发帖心情 Post By: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

谢谢老师,我需要这句




 回到顶部