以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [已解决]窗口副本表定位行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75259)

--  作者:weigqing9
--  发布时间:2015/10/1 22:49:00
--  [已解决]窗口副本表定位行

求代码 在预算书表双击[定额编号]打开模式窗口,光标定位到窗口副本表相同[定额编号]行的代码,模式窗口副本表来自另一张表,我写在窗口AfterLoad的代码无效

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

 With Tables("定额表_table1")
   Dim r As Integer
   r = .FindRow("[定额编号] = \'" & Tables("预算表").Current("定额编号") & "\'"
   If r > = 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With

[此贴子已经被作者于2015/10/2 10:33:48编辑过]

--  作者:sloyy
--  发布时间:2015/10/1 23:03:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table


--  作者:weigqing9
--  发布时间:2015/10/2 10:32:00
--  
感恩你的回复,我实列文件为关系表.子表,(项目表.预算书").Current("编号") & "\'"),做的列子为主表,当前行定位有问题了
,昨天调试了一个下午没有成功,谢谢。