[此贴子已经被作者于2021-6-5 20:46编辑过]

程序代码：

CREATE CURSOR tt (f1 I, f2 M)
INSERT INTO tt VALUES (1,"123"+0h0D+"456"+0h0D+"789")
INSERT INTO tt VALUES (2,"abc"+0h0D+"def"+0h0D+"ghi")
INSERT INTO tt VALUES (3,"ABC"+0h0D+"DEF"+0h0D+"GHI")
GO TOP 
of = CREATEOBJECT("form1")
of.Show(1)
RETURN

DEFINE CLASS form1 AS Form
    ADD OBJECT grid1 AS Grid WITH left=10,top=10,width=150
    ADD OBJECT edit1 AS editbox WITH left=170,top=10,width=150,height=this.grid1.height
    PROCEDURE grid1.AfterRowColChange(nColIndex)
        thisform.edit1.value = tt.f2
    ENDPROC
ENDDEFINE