以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]跨表更新  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57703)
--  作者：lesliecheung912
--  发布时间：2014/9/29 16:02:00
--  [求助]跨表更新
现在有两张表，并没有关联，现已做到表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就找不到了，那么应该解决这个问题呢？
--  作者：有点甜
--  发布时间：2014/9/29 16:06:00
--  

 请参考这里

 

http://www.foxtable.com/help/topics/2490.htm