Foxtable(狐表)用户栏目专家坐堂 → [求助]两个表引用同一字段相互更新


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

主题:[求助]两个表引用同一字段相互更新

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


加好友 发短信
等级:婴狐 帖子:27 积分:238 威望:0 精华:0 注册:2024/6/22 10:03:00
[求助]两个表引用同一字段相互更新  发帖心情 Post By:2024/8/13 20:11:00 [只看该作者]

商承回款表格DataColChanged:
 Select Case e.DataCol.Name
    Case "汇piao编号"
        Dim prs As List(Of DataRow)
        prs = DataTables("商承支付").Select("汇piao编号 = '" & e.oldvalue & "'")
        If prs IsNot Nothing Then 
            For Each pr As DataRow In prs
                DataTables("商承支付").DataCols("汇piao编号").RaiseDataColChanged(pr)
            Next
        End If
        prs = DataTables("商承支付").Select("汇piao编号 = '" & e.newvalue & "'")
        If prs IsNot Nothing Then
            For Each pr As DataRow In prs 
            DataTables("商承支付").DataCols("汇piao编号").RaiseDataColChanged(pr)
            Next
        End If
End Select

商承支付表格DataColChanged:
Case "汇piao编号"
        Dim pr As DataRow
        pr = DataTables("商承回款").Find("汇piao编号 = '" & e.oldvalue & "'")
        If pr IsNot Nothing Then
            DataTables("商承回款").DataCols("汇piao编号").RaiseDataColChanged(pr)
        End If
        pr = DataTables("商承回款").Find("汇piao编号 = '" & e.newvalue & "'")
        If pr IsNot Nothing Then
            DataTables("商承回款").DataCols("汇piao编号").RaiseDataColChanged(pr)
        End If

老师:如何可以让两个表在”汇piao编号“字段变化时能相互更新?感谢指导!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110769 积分:563777 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/8/13 20:20:00 [只看该作者]

要更新什么内容?

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


加好友 发短信
等级:婴狐 帖子:27 积分:238 威望:0 精华:0 注册:2024/6/22 10:03:00
  发帖心情 Post By:2024/8/13 20:37:00 [只看该作者]

商承支付表格:通过“汇piao号码”引用了商承回款表格的“汇piao金额”,商承回款表格:通过“汇piao号码”引用统计了商承支付表格的“支付金额”,相当于在商承支付表格里面,如果汇piao号码变化时,商承回款表格对应的汇piao号码行需要重新计算一次。

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110769 积分:563777 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/8/13 20:41:00 [只看该作者]

【商承支付表格:通过“汇piao号码”引用了商承回款表格的“汇piao金额”】商承回款表格的“汇piao金额”填入商承支付表格哪一列?

【商承回款表格:通过“汇piao号码”引用统计了商承支付表格的“支付金额”】商承支付表格的“支付金额”填入商承回款表格哪一列?

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


加好友 发短信
等级:婴狐 帖子:27 积分:238 威望:0 精华:0 注册:2024/6/22 10:03:00
  发帖心情 Post By:2024/8/13 20:42:00 [只看该作者]

Select Case e.DataCol.Name
    Case "汇piao金额"
        Dim prs As List(Of DataRow)
        prs = DataTables("商承支付").Select("汇piao编号 = '" & e.DataRow("汇piao编号") & "'")
        If prs IsNot Nothing Then
            For Each pr As DataRow In prs 
                DataTables("商承支付").DataCols("汇piao编号").RaiseDataColChanged(pr)
            Next
        End If
End Select

Select Case e.DataCol.Name
    Case "汇piao编号"
        Dim prs As List(Of DataRow)
        prs = DataTables("商承支付").Select("汇piao编号 = '" & e.oldvalue & "'")
        If prs IsNot Nothing Then 
            For Each pr As DataRow In prs
                DataTables("商承支付").DataCols("汇piao编号").RaiseDataColChanged(pr)
            Next
        End If
        prs = DataTables("商承支付").Select("汇piao编号 = '" & e.newvalue & "'")
        If prs IsNot Nothing Then
            For Each pr As DataRow In prs 
            DataTables("商承支付").DataCols("汇piao编号").RaiseDataColChanged(pr)
            Next
        End If
End Select



Select Case e.DataCol.Name
    Case "支付金额",
        Dim pr As DataRow
        pr = DataTables("商承回款").Find("汇piao编号 = '" & e.DataRow("汇piao编号") & "'")
        If pr IsNot Nothing Then
            DataTables("商承回款").DataCols("汇piao编号").RaiseDataColChanged(pr)
        End If

    'Case "汇piao编号"
        'Dim pr As DataRow
        'pr = DataTables("商承回款").Find("汇piao编号 = '" & e.oldvalue & "'")
        'If pr IsNot Nothing Then
        '    DataTables("商承回款").DataCols("汇piao编号").RaiseDataColChanged(pr)
        'End If
        'pr = DataTables("商承回款").Find("汇piao编号 = '" & e.newvalue & "'")
       ' If pr IsNot Nothing Then
       '     DataTables("商承回款").DataCols("汇piao编号").RaiseDataColChanged(pr)
       ' End If
End Select

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


加好友 发短信
等级:婴狐 帖子:27 积分:238 威望:0 精华:0 注册:2024/6/22 10:03:00
  发帖心情 Post By:2024/8/13 20:46:00 [只看该作者]

商承支付表格有一列“汇piao金额”,商承回款有一列“累计支付”,用于同一汇piao分次支付后的汇总

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110769 积分:563777 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/8/13 20:54:00 [只看该作者]

这些代码没有任何用处。截图并使用文字说明,到底要更新哪一列数据?

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


加好友 发短信
等级:婴狐 帖子:27 积分:238 威望:0 精华:0 注册:2024/6/22 10:03:00
  发帖心情 Post By:2024/8/13 21:04:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:27 积分:238 威望:0 精华:0 注册:2024/6/22 10:03:00
  发帖心情 Post By:2024/8/13 21:04:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:27 积分:238 威望:0 精华:0 注册:2024/6/22 10:03:00
  发帖心情 Post By:2024/8/13 21:09:00 [只看该作者]

商承回款表格中,如果汇piao编号变化时,商承支付表格中的相应的引用数据会自动更新,看如何实现:商承支付表格中汇piao编号变化时,商piao回款的累计支付会重新计算。

 回到顶部
总数 26 1 2 3 下一页