>> 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
>>>>>use mytable in 0 >>>>>SELE MyTable >>>>>locate for .... >>>>>if !found() >>>>> Append from grdDistribution >>>>>endif >>>>>>>>>>
>>>>>>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.