1、第一个做法：
在入库表的CurrentChanged事件当中
Dim r = e.Table.Current
If r Is Nothing Then '如果Current为Nothing
Return
'则返回
End
If
Dim fdr = DataTables("出库明细").Find("二维码='" & r!二维码 &"'")
if fdr IsNot Nothing
r!出库情况 = "已出库"
Else
r!出库情况 = Nothing
End if
r.Save
2、第二个做法：在出库明细表的DataColChanged事件当中
Dim cn = e.DataCol.Name
Dim dr = e.DataRow
If cn = "二维码" Then
If e.NewValue > "" Then
Dim fdr = DataTables("采购入库").Find("二维码='" & e.NewValue & "'")
If fdr IsNot Nothing Then
fdr!出库情况 = "已出库"
fdr.Save
End If
End If
If e.OldValue > "" Then
Dim fdr = DataTables("采购入库").Find("二维码='" & e.OldValue & "'")
If fdr IsNot Nothing Then
fdr!出库情况 = Nothing
fdr.Save
End If
End If
End If
[此贴子已经被作者于2022/11/20 12:24:49编辑过]
加好友 
发短信
F6
Post By：2022/11/20 10:26:00 [显示全部帖子]
