> >
> >
Public oForm
> > oForm = Createobject("myForm")
> > oForm.Show
> >
> > Define Class myForm As Form
> > DataSession = 2
> >
> > Add Object myGrid As Grid
> >
> > Procedure myGrid.Init
> > This.SetAll('DynamicBackColor', 'IIF(myCursor.qnty < 0, 0x0000FF, 0xFFFFFF)')
> > This.SetAll('DynamicForeColor', 'IIF(myCursor.qnty < 0, 0xFFFFFF, 0x0)')
> > Endproc
> > Procedure myGrid.AfterRowColChange
> > Lparameters nColIndex
> > If This.RowColChange % 2 = 1
> > This.SetAll('Enabled', myCursor.qnty >= 0)
> > This.SetAll('readonly',myCursor.qnty < 0)
> > Endif
> > Endproc
> >
> > Procedure Load
> > Create Cursor myCursor (dates d, qnty Y)
> > Local lcValues
> > lcValues = '10000,-8000,9000,11500,-1500,4500'
> > For ix=1 To Occurs(',',m.lcValues)+1
> > Insert Into myCursor Values (Date(2008,7,17+m.ix), Val(Getwordnum(m.lcValues,m.ix,',')))
> > Endfor
> > Locate
> > Endproc
> > Enddefine
> >
> > Cetin Basoz
>
>
> Thanx Mr Cetin.Nice.
>
>
> *Exchange of $1 Create only $1, But Exchage of one Ideas Makes different two Ideas*
Hi binod
if u think Cetin sir answer is helpful for u. Then just give him rating for his work!.
and ratings tell another ppl that you got the solution.
Anil
(Fox is the solution for almost everything!!)