Select yourtable && correct to the name of yoru table Append from dbf('yourcursor') && correct to the name of yoru cursorTo change the data in the table from the cursor, you can use a Scan-Endscan loop. Inside the loop, it's safer to use a SQL Update lline than a Replace line. Something like
Select yourcursor Scan m.keyvalue=yourcursor.keyfield Update yourtable set yourtable.field1=yourcursor.field2 where keyfield=m.keyvalue EndscanNB! Note that this is "Pseudocode" meaning that this shows how you can do it, but you must change the name of the tables, cursors, fields and variables to fill your need. Read and learn...! :-)
>SELECT TAlias1.employeeid,TAlias2.nam,TAlias2.nam4,TAlias1.workdays,TAlias1.absencewp,TAlias1.absencew,TAlias1.uovertimeh,TAlias1.whovertime,TAlias1.vacations,TAlias1.sickvacati,TAlias2.wark ; > FROM payroll TAlias1, mstr TAlias2 ; > WHERE TAlias1.employeeid = TAlias2.no ; > ORDER BY employeeid ; > INTO cursor mycur readwrite > > thisform.Grid1.RecordSource=" mycur" > thisform.Grid1.refresh() > >>
select payroll
>>>>zap
>>>>append from dbf('mycur')&& ok
>>>>
>>>>******************************
>>>>***no errors no result
>>>>SCAN
>>>> M.EMP=payroll.employeeid && mycur must be wrong??
>>>> M.MARK1=payroll.WARK
>>>> Update mstr set mark=m.mark1 where no=m.emp && SQL is easier and often quicker
>>>>ENDSCAN
>>>><\pre>
>>>>
>>>>NB! Once again: you should NEVER zap a table on a regular basis, only during maintainance a few times per year. If you need to zap regularly, you must rethink your design. Usually you should use a cursor instead of a table in such cases.
>>>>
>>>>
>>>>>hi all,
>>>>>any help to active this code
>>>>>
>>>>>
>>>>>select payroll
>>>>>zap
>>>>>append from dbf('mycur')&& ok
>>>>>
>>>>>******************************
>>>>>***no errors no result
>>>>>SCAN
>>>>> M.EMP=mycur.employeeid
>>>>> M.MARK1=mycur.WARK
>>>>> replace MSTR.wark WITH M.MARK1 FOR MSTR.NO =M.EMP
>>>>>ENDSCAN
>>>>><\pre>
>>>>>thanks