Foxtable(狐表)用户栏目专家坐堂 → 这个代码如何改变多条记录


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

主题:这个代码如何改变多条记录

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


加好友 发短信
等级:五尾狐 帖子:1152 积分:7712 威望:0 精华:0 注册:2019/6/13 9:57:00
这个代码如何改变多条记录  发帖心情 Post By:2022/12/7 11:27:00 [只看该作者]

如何将下面代码改成,需求:

主表的“订单属性,入库类型,仓库名,入库部门,入库单位,制单人,UserID,红冲单号”这些字段的任一字段修改,明细也跟着修改?

If e.DataCol.Name = "仓库名" Then '
    Dim drs As List(Of DataRow)
    drs = e.DataRow.GetChildRows("入库明细")'
    For Each dr As DataRow In drs
        If dr("审核") = False Then '
            dr("订单属性") = e.DataRow("订单属性")
            dr("入库类型") = e.DataRow("入库类型")
            dr("仓库名") = e.DataRow("仓库名")
            dr("入库部门") = e.DataRow("入库部门")
            dr("入库单位") = e.DataRow("入库单位")
            dr("入库日期") = e.DataRow("入库日期")
            dr("制单人") = e.DataRow("制单人")
            dr("UserID") = e.DataRow("UserID")
            dr("红冲单号") = e.DataRow("红冲单号")
        End If
    Next
ElseIf e.DataCol.Name = "入库单号" AndAlso Forms("入库登记").opened Then 
    
    Tables("入库登记_入库明细").Filter = "入库单号='" & e.NewValue & "'"
End If

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/7 11:59:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/2242.htm

Select Case e.DataCol.Name
    Case
 
"订单属性","入库类型",......
    Dim drs As List(Of DataRow)
    drs = e.DataRow.GetChildRows("入库明细")'
    For Each dr As DataRow In drs
        If dr("审核") = False Then '
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
    Next
End Select
If e.DataCol.Name = "入库单号" AndAlso Forms("入库登记").opened Then 
    Tables("入库登记_入库明细").Filter = "入库单号='" & e.NewValue & "'"
End If

 回到顶部