跨表引用,编写dataColChanged事件
If e.DataCol.Name = "编号" Then
Dim fdr As DataRow = DataTables("库位表").Find("编号 = '" & e.DataRow("编号") & "')
If fdr IsNot Nothing Then
fdr("在库") = False
End If