以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何求得关联父表行的位置值?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=556)

--  作者:kylin
--  发布时间:2008/9/17 12:32:00
--  如何求得关联父表行的位置值?
Dim dr As  Datarow
Dim n  AS Integer
dr=e.Datarow.GetParentrow("bjd") 取得本表的父表的关联行
n ***为了求得dr行在父表中的行位置值,如何写?


--  作者:狐狸爸爸
--  发布时间:2008/9/17 12:40:00
--  
对于内部表,可以通过_Identify列得出位置:

Dim Index As integer
Index = Tables("表A").Findrow("_Identify = " & dr("_Identify"),0,False)

对于外部表,原理一样,根据主键列内容查找即可。

--  作者:kylin
--  发布时间:2008/9/17 14:05:00
--  
谢谢!!
不过有问题,如下图,该如何改正?
图片点击可在新窗口打开查看此主题相关图片如下:tp1.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2008-9-17 14:19:27编辑过]

--  作者:kylin
--  发布时间:2008/9/17 15:08:00
--  
顶,请老六帮忙看一下!
--  作者:狐狸爸爸
--  发布时间:2008/9/17 15:09:00
--  
呵呵,倒数第二行错了,去看看帮助文件中recalc的语法。
--  作者:狐狸爸爸
--  发布时间:2008/9/17 15:12:00
--  
直接用dr做为参数就行。
--  作者:kylin
--  发布时间:2008/9/17 15:25:00
--  
呵呵,翻跟斗了。
原来如此j就可以了
Dim dr As  Datarow
dr=e.Datarow.GetParentrow("bjd")
DataTables("bjd").DataCols("报价").Recaclc(dr)