专家坐堂-这个代码如何改变多条记录Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个代码如何改变多条记录  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184433)

--  作者：lgz518
--  发布时间：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

--  作者：有点蓝
--  发布时间：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