procedure Click replace memonote with oFrm.Edit1.Value IN MyTable>solution found - create command button to save edit data thus
> >procedure Click >nm = oFrm.Edit1.Value >strtofile(nm,'m2.txt') >replace memonote with filetostr('m2.txt') >>
>>strtofile(memonote,'m.txt') >>LOCAL oFrm >> >>oFrm= CREATEOBJECT("Note") >>oFrm.Edit1.Value = filetostr('m.txt') >> >>oFrm.Show(1) >> >>************************************ >>DEFINE CLASS Note AS Form >> >> ADD OBJECT Edit1 AS EditBox WITH ; >> Height= 470, ; >> Left= 16, ; >> ReadOnly= .f., ; >> TabIndex= 2, ; >> Top= 16, ; >> Width= 530, ; >> Value= "" >>ENDDEFINE >> >>Public Event MouseWheel As MouseWheelEventHandler >> >> >>PROCEDURE Object.MouseWheel >>LPARAMETERS nDirection, nShift, nXCoord, nYCoord >> >>PROCEDURE edit1.MouseWheel >> LPARAMETERS nDirection, nShift, nXCoord, nYCoord >> >> >> ENDPROC >> >> >>oFrm.hide(1) >>