hi,
thank you, it works as..

i include mytable betweent with thisform ...endwith,

&&at save command button..

SELE typ2
      LOCATE FOR txtname=UPPER(ALLTRIM(thisform.txtname.value))
IF !FOUND()
      append from dbf('crsDist')
ELSE
     MESSAGEBOX("Exist")      

endif      

With Thisform
               .grdDistribution.RecordSource = ''
               .grdDistribution.Visible = .T.
endwith

thanks.

m.qasem

>UPDATED
>
>You have a space after the cursor name. How about doing:
>
>

>SELE crsDist
>SELE MyTable
>APPEND FROM crsDist
>

>
>Do you get the error on the SELE crsDist line, or just the APPEND line?
>
>If you do, then can you email the form files to me at AugusteRenoir@Gmail.com so I can take a look?
>
>>hi,
>>i try as
>>Append from dbf('crsDist '), error message
>>Alias is not found
>>thanks
>>
>>
>>>What is THIS for this code? Also, isn't your cursor name crsDist instead of grdDistribution? That's what you should be referencing in your append code.
>>>
>>>>hi,
>>>>this is the code at my form
>>>> command button---> click event
>>>>

>>>>      Create Cursor crsDist (From d, To d, Amount Y,txtName C(19),txtPrincipal Y)
>>>>          For ix=0 To .txtMonths.Value
>>>>        ldCurrent = Gomonth(.txtStart.Value,m.ix)
>>>>        ldFrom = Iif(m.ix = 0, m.ldCurrent, ;
>>>>          Date( Year(m.ldCurrent), Month(m.ldCurrent), 1))
>>>>        ldTo = Iif(m.ix = .txtMonths.Value, m.ldCurrent,;
>>>>          Gomonth(m.ldCurrent,1)-Day(Gomonth(m.ldCurrent,1)))
>>>>        Do Case
>>>>          Case m.ix = 0
>>>>            lnAmount = m.lnPayment * ((Day(m.ldTo)-Day(m.ldCurrent))/30)
>>>>          Case m.ix = .txtMonths.Value
>>>>            lnAmount = m.lnPayment * ((Day(m.ldCurrent)-1)/30)
>>>>          Otherwise
>>>>            lnAmount = m.lnPayment
>>>>
>>>>        ENDCASE
>>>>        M.ASD=THISFORM.TXTNAME.VALUE
>>>>       M.txtPrincipal=THISFORM.txtPrincipal.VALUE
>>>>        Insert Into crsDist (From,To,Amount,txtNAME,txtPrincipal) ;
>>>>          values ;
>>>>          ( m.ldFrom, m.ldTo,m.lnAmount,M.ASD,M.txtPrincipal)
>>>>      Endfor
>>>>      Locate
>>>>      .grdDistribution.RecordSource = 'crsDist'
>>>>      .grdDistribution.Visible = .T.
>>>>
>>>>

>>>>thanks
>>>>
>>>>>Ok, then that is your problem. It is not open, or at least it is not available where this code is run. How is grdDistribution created? Where is it created? Is this a form? Classes? The more detail information you can give - code examples - the better.
>>>>>
>>>>>>hi,
>>>>>>
>>>>>>thank you for replay,
>>>>>>i got error message
>>>>>>'grdDistribution.dbf' dose not exist
>>>>>>
>>>>>>thanks.
>>>>>>
>>>>>>
>>>>>>
>>>>>>>Does this not work? What is happening? Errors or just no data?
>>>>>>>
>>>>>>>

>>>>>>>use mytable in 0
>>>>>>>SELE MyTable
>>>>>>>locate for ....
>>>>>>>if !found()
>>>>>>>   Append from grdDistribution
>>>>>>>endif
>>>>>>>

>>>>>>>
>>>>>>>
>>>>>>>>hi all,
>>>>>>>>
>>>>>>>>i need to append from cursor to my table as..
>>>>>>>>Create Cursor crsDist.........
>>>>>>>>.
>>>>>>>>.
>>>>>>>>Locate
>>>>>>>> .grdDistribution.RecordSource = 'crsDist'
>>>>>>>>
>>>>>>>>i try as under....not work
>>>>>>>>

>>>>>>>>use mytable in 0
>>>>>>>>locate for ....
>>>>>>>> if !found()
>>>>>>>>*Append from dbf('grdDistribution') && rong
>>>>>>>>*Append from DBF(grdDistribution.RecordSource = 'crsDist')&&rong
>>>>>>>>*append from cursor ('crsDist')&&rong
>>>>>>>>*append from  (crsDist.cursor)&&rong
>>>>>>>>else
>>>>>>>>.
>>>>>>>>.
>>>>>>>> endif
>>>>>>>>

>>>>>>>>thanks.