以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何让一对多的关联同步跟新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116608)
--  作者：cool314156
--  发布时间：2018/3/28 10:09:00
--  [求助]如何让一对多的关联同步跟新
Select Case e.DataCol.name
    Case "是否复核"
        Dim dr As DataRow = DataTables("销售订单").Find("销售编号 = \'" & e.DataRow("销售编号") & "\'")
        
        If dr IsNot Nothing Then
            Dim drs = DataTables("出库").Select("销售编号 = \'" & e.DataRow("销售编号") & "\'")
            Dim flag As Boolean = True
If dr("是否复核") = True Then
drs("是否复核") = True
        End If
End If
End Select
想问下老师，我错在哪里了
我的设想是，出库里面有好几行的销售编号是同样的 和 销售订单里的 唯一的订单编号是一致的，销售订单和出库已经做了关联了，销售订单里面的是否复核这个逻辑列，是“是”，那么出库的里面所对应的所以相同的销售编号 是否复核的逻辑列 就会变成“是
[此贴子已经被作者于2018/3/28 10:14:09编辑过]
--  作者：有点甜
--  发布时间：2018/3/28 10:17:00
--  

代码改成

 

Select Case e.DataCol.name
    Case "是否复核"
        DataTables("出库").replacefor("是否复核", e.DataRow("是否复核"), "销售编号 = \'" & e.DataRow("销售编号") & "\'")
End Select