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