>>select * from test_financing into cursor crstemp readwrite >>set multilocks on >>=cursorsetprop("buffering",5,"test_financing") >>select crstemp >>go top >>replace amount with 2000 >>=tableupdate() >>>>
SELECT Test_financing.tip_id, Test_financing.amount,; Test_financing.source, Test_financing.year, Test_financing.phase; FROM ; Z:\DFREEMAN\TIP\DATA\TEST_FINANCING.DBF; WHERE Test_financing.year = ( 2007 ); ORDER BY Test_financing.tip_id DBSetProp(ThisView,"View","SendUpdates",.F.) DBSetProp(ThisView,"View","BatchUpdateCount",1) DBSetProp(ThisView,"View","CompareMemo",.T.) DBSetProp(ThisView,"View","FetchAsNeeded",.F.) DBSetProp(ThisView,"View","FetchMemo",.T.) DBSetProp(ThisView,"View","FetchSize",100) DBSetProp(ThisView,"View","MaxRecords",-1) DBSetProp(ThisView,"View","Prepared",.F.) DBSetProp(ThisView,"View","UpdateType",1) DBSetProp(ThisView,"View","UseMemoSize",255) DBSetProp(ThisView,"View","Tables","test_financing") DBSetProp(ThisView,"View","WhereType",3) DBSetProp(ThisView+".tip_id","Field","DataType","N(6,2)") DBSetProp(ThisView+".tip_id","Field","UpdateName","test_financing.tip_id") DBSetProp(ThisView+".tip_id","Field","KeyField",.F.) DBSetProp(ThisView+".tip_id","Field","Updatable",.T.) DBSetProp(ThisView+".amount","Field","DataType","N(6)") DBSetProp(ThisView+".amount","Field","UpdateName","test_financing.amount") DBSetProp(ThisView+".amount","Field","KeyField",.F.) DBSetProp(ThisView+".amount","Field","Updatable",.T.) DBSetProp(ThisView+".source","Field","DataType","C(5)") DBSetProp(ThisView+".source","Field","UpdateName","test_financing.source") DBSetProp(ThisView+".source","Field","KeyField",.F.) DBSetProp(ThisView+".source","Field","Updatable",.T.) DBSetProp(ThisView+".year","Field","DataType","N(4)") DBSetProp(ThisView+".year","Field","UpdateName","test_financing.year") DBSetProp(ThisView+".year","Field","KeyField",.F.) DBSetProp(ThisView+".year","Field","Updatable",.T.) DBSetProp(ThisView+".phase","Field","DataType","C(5)") DBSetProp(ThisView+".phase","Field","UpdateName","test_financing.phase") DBSetProp(ThisView+".phase","Field","KeyField",.F.) DBSetProp(ThisView+".phase","Field","Updatable",.T.)but it errors if I try to run it as a program. Also, if I :
use testview repl amount with somenumber =tableupdate()the new data is not saved back into the original file. So I must still be missing something.