Basically, it is supposed to work OK.

Anyway, instead of oFrm.edit1.ControlSource = 'MyTable.classrooms'
you can try

oFrm.edit1.value = MyTable.classrooms

This would not bring your changes back to the table, it would work for display purpose only.


>Thanks Naomi
>i've been working at it with variations of what you suggested trying to get this thing to work.
>Am i getting warm?
>
>right now i'm getting held up up on your
>'thisform.myEditBox.ControlSource = 'MyTable.MyMemoField' && You can set it in the Init of the form
>my variation is getting me no where.
>
>thanks for your time.
>
>k
>
>LOCAL oFrm
>use students in 0 alias myTable shared
>
>
>oFrm= createOBJECT("classRooms")
>oFrm.Top = 24
>oFrm.left = 800 && will keep right border
>oFrm.Height = 573
>oFrm.Width = 350
>oFrm.Edit1.Width = 345
>
>*oFrm.edit1.value = filetostr('m.txt') &&& this was the original
>
>oFrm.edit1.ControlSource = 'MyTable.classrooms' && You can set it in the Init of the form
>
>
>oFrm.Show(1)
>
>************************************
>DEFINE CLASS classrooms AS Form
>
>
>ADD OBJECT Edit1 AS EditBox WITH ;
> FontSize = 8, ;
> FontStyle = 'n', ;
> Height= 550, ;
> Left= 2, ;
> fontname='lucida console', ;
> ReadOnly= .t., ;
> TabIndex= 2, ;
> Top= 2, ;
> Value= ""
> desktop = .t. &&& moved from setting oFrm
>ENDDEFINE
>
>
>Public Event MouseWheel As MouseWheelEventHandler
>
>PROCEDURE Object.MouseWheel
>LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>
>
>PROCEDURE edit1.MouseWheel
> LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>
> * Set focus to this control
> If Type("thisform.ActiveControl") # "O" or thisform.ActiveControl < > this
> this.SetFocus
> EndIf
>
> ENDPROC
>
>oFrm.hide(1)