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.