vfp 表单之间互动,的确不太容易.

说说意思，是不是与楼主的意思相符。（不是这种意思就算啦）
如果一个父表单上有 grid,也有一个按钮，在此按钮的click中，打开了另一个表单，即子表单。子表单上也有一个grid.如果2个grid 都用了相同的表做数据源。
   问题：1、  当父表单的 grid 中 让其中的记录指针移动时，想让子表单 grid 的指针自动移动？这个不难实现，就是：在移动动作中 lostfocus 等..,再启动按钮的click 一次，起到刷新子表单的作用。
   问题2、反过来，当子表单的 grid 中指针移动，让父表单的 grid 指针自动移动。这个难一点的。

这个不难，父子是可以沟通的，比如将thisform或hWnd告知对方。

已经附上了，麻烦各位大哥帮帮忙

不能正常运行？

我的问题是当第一form的记录去到第二行时，remark form 的记录还是在第一行 。

cust form 里有有一个按钮是去到 remark form 的 。但是两个form 的记录不一样

[此贴子已经被作者于2015-12-21 00:14编辑过]

给出的代码运行不了怎测试出问题所在？
前面已经说过解决方法，form1执行form2的<object>.Release方法就可以，同样反过来也可以。

参考试例，是这个意思吗？

** Test.prg
CREATE CURSOR tt (ff I)
FOR i = 1 TO 100
    INSERT INTO tt VALUES (i)
ENDFOR
GO TOP 
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form 
    ADD OBJECT cmd as CommandButton WITH top=10,left=10,caption="Show Form2"
    ADD OBJECT txt as TextBox WITH top=10,left=120,ControlSource="tt.ff"
    ADD OBJECT grd as Grid WITH top=40,AllowCellSelection=.F.

    PROCEDURE cmd.Click
        LOCAL of
        of = CREATEOBJECT("form2", thisform)
        of.show(1)
    ENDPROC
ENDDEFINE

DEFINE CLASS form2 as Form 
    AutoCenter = .T.
    Caption = "点击表格变动记录"
    form1 = null
    
    ADD OBJECT grd as Grid WITH AllowCellSelection=.F.
    
    PROCEDURE Init(form1)
        this.form1 = form1
    ENDPROC
    
    PROCEDURE grd.Click
        thisform.form1.txt.Refresh
        thisform.form1.grd.Refresh
    ENDPROC
ENDDEFINE

楼主是用remark form来编辑table1.remark字段，应该很容易实现这个功能的啊、

楼主的两个表单使用的都是 Default Data Session（默认数据工作期），因此应该做如下修改：
1. 修改第二个表单 Remark 的数据环境，将 AutoOpenTalbe 与 AutoCloseTables 均设为 .f.。否则，在 DO FORM Remark 时，会自动移动记录指针到首记录。
2. 修改主表单 Cust 中的 Remark 按钮的代码，修正后的代码如下：
    PUBLIC goFrmRemark
    DO FORM Remark NAME goFrmRemark
3. 修改主表单四个指针移动按钮的代码，在代码的最后添加下列代码：
    IF TYPE('goFrmRemark')='O' AND !ISNULL(goFrmRemark) AND LOWER(goFrmRemark.BaseClass)='form'
    goFrmRemark.Refresh
    ENDIF
如果使用表单集，就简单多了。只需在四个记录移动按钮中添加：THISFORMSET.frmRemark.Refresh即可。

[此贴子已经被作者于2015-12-21 11:27编辑过]