>text TO cmd noshow >select code,name > from sale >ENDTEXT > >if sqlexec(con,cmd,'table1')<0 > aerror(laerror) > messagebox(laerror[1,2]) > return >endif > > >table2="crs"+sys(2015) >select * from table1 into cursor table2 readwrite >>
>update table2.name=master.name from master where table2.code=master.code >>
text TO cmd noshow select code,name from sale; select sale.code,Master.name from sale INNER JOIN Master ON sale.Code = Master.Code; ENDTEXT if sqlexec(con,cmd)<0 aerror(laerror) messagebox(laerror[1,2]) return endif table2="crs"+sys(2015) select * from SQLRESULT into cursor (table2) readwrite table3="crs"+sys(2015) select * from SQLRESULT1 into cursor (table3) readwrite