以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  修改某一项数据后同步对应表的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99040)
--  作者：zchlln
--  发布时间：2017/4/11 17:05:00
--  修改某一项数据后同步对应表的数据
 If e.DataCol.Name = "金额锁定" Then 
Select Case e.DataCol.Name 
    Case "车牌号","收款日期"
        Dim Filter As String = "[车牌号] = \'" & e.DataRow("车牌号") & "\'"
        Dim drs As List(Of DataRow) = DataTables("续费表").Select(Filter)
        For Each dr As DataRow In drs
            dr("回款日期") = e.DataRow("收款日期") 
        Next
End Select
End If 
--  作者：zchlln
--  发布时间：2017/4/11 17:05:00
--  
代码 好像写得不对 不生效
--  作者：有点蓝
--  发布时间：2017/4/11 17:28:00
--  
去掉外层if

Select Case e.DataCol.Name 
    Case "车牌号","收款日期"
        Dim Filter As String = "[车牌号] = \'" & e.DataRow("车牌号") & "\'"
        Dim drs As List(Of DataRow) = DataTables("续费表").Select(Filter)
        For Each dr As DataRow In drs
            dr("回款日期") = e.DataRow("收款日期") 
        Next
End Select
--  作者：zchlln
--  发布时间：2017/4/12 8:18:00
--  
我想要在修改“金额锁定”的时候 才触发数据同步
--  作者：有点色
--  发布时间：2017/4/12 8:31:00
--  
Select Case e.DataCol.Name 
    Case "金额锁定"
        Dim Filter As String = "[车牌号] = \'" & e.DataRow("车牌号") & "\'"
        Dim drs As List(Of DataRow) = DataTables("续费表").Select(Filter)
        For Each dr As DataRow In drs
            dr("回款日期") = e.DataRow("收款日期") 
        Next
End Select
--  作者：zchlln
--  发布时间：2017/4/12 10:26:00
--  
原来如此 谢谢