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 SelectIf e.DataCol.Name = "入库单号" AndAlso Forms("入库登记").opened Then
Tables("入库登记_入库明细").Filter = "入库单号='" & e.NewValue & "'"
End If
加好友 
发短信
Post By：2022/12/7 11:59:00 [显示全部帖子]
