现在有两张表,并没有关联,现已做到表A增加一条数据,表B也增加一条同样的数据。现在的问题是在修改表A的某一列时,需要从表B中找到对应的数据并修改相应的列,
这个在Datacolchanged事件里实现不了啊,我现在的代码为:
if e.DataCol.Name =“产品” then
Dim r = Tables("库房明细").Current
Dim r1 As DataRow
r1 = DataTables("库房入库").Find("[入库单号] ='" & r("调拨单号") & "' and [收货仓库] ='" & r("收货仓库") & "' and [产品名称] ='" & r("产品名称") & "' and [数量] ='" & r("数量") & "'")
If r1 IsNot Nothing Then '如果找到的话
r1("产品名称") = r("产品名称")
End If
end if
但问题是这个产品名称改变了,那么r1就找不到了,那么应该解决这个问题呢?