以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  只让当前行的父表关联行发生变化  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81815)
--  作者：jinzhengbe
--  发布时间：2016/3/7 4:57:00
--  只让当前行的父表关联行发生变化
Dim r As Row = Tables("商品").Current
Dim d As Date = r("addtime")
Dim bh As String = Format(D,"MMddhhmm")

r("bh")=bh
If e.DataCol.name ="商号" Or e.DataCol.name=("lable") Then
e.DataRow("lable")= e.DataRow("商城") & e.DataRow("楼层") & "-" & e.DataRow("商号")
r("cn_name")= e.DataRow("kr")& e.DataRow("name") & bh & r("_Identify")  
End If

这段代码我想在  当前表的 内容发生变化时，只是让他的父表 “商品”表的 关联行的 cn_name 字段发生变化，而不是所有父表的所有行 都发生变化

实例

商品表

商品名         cn_name       bbb

aa                                   bb 
cc                                    cc  


当前表

lable     商号    name     bb

ap-c     5        nn         bb

uu-e    10      oo          cc


假如bb是 两个表的关联字段
当前表的输入结束后 商品表的内容应该变为

商品名         cn_name       bbb

aa               nn*****        bb 
cc                 oo ****       cc  

请问上面的代码应该怎么处理
--  作者：Hyphen
--  发布时间：2016/3/7 8:34:00
--  
获取父表中对应的关联行参考