oData.form_de(this)
In case I want to open database in code local cDatabase cDatabase=oData.get_database(TASTRADE.DBC) open database (cDatabase) set database to (cDatabase)Here is simplified class that 'redirect' environment cursors
define class redirect_dataenvironment as custom . Network_path='' . . procedure get_database lparameters cDatabaseName local cDatabaseName return this.Network_path + cDatabaseName procedure form_de lparameters oDataEnvironment local i,j,db_name,arr_obj(1) amembers(arr_obj,oDataEnvironment,2) for i = 1 to alen(arr_obj) j = oDataEnvironment.&arr_obj(i) .baseclass if upper(alltrim(j)) = 'CURSOR' db_name=upper(justfname(allt(oDataEnvironment.&arr_obj(i) .database ))) oDataEnvironment.&arr_obj(i) .database=this.get_database(allt(db_name)) if !file(oDataEnvironment.&arr_obj(i) .database) messagebox('['+oDataEnvironment.&arr_obj(i) .database+']'+chr(13)+; 'Not found Check your data') endif endif endfor . . . enddefineSo somewhere in init of yr appliacation you have to
public oData oData=createobject('redirect_dataenvironment') oData.network_path='\\wherever it is 'I am using loader application to do that.