this.AddProperty('omySQLData',CREATEOBJECT('app_data_env_mySQL'))
Define Class App_Data_Env_mySQL As Custom Dimension aUPDFieldNames[1] Dimension aUPDFieldValues[1] cTableName = Space(0) cUPDCondition = Space(0) cTableOperation = Space(0) IsTest = VARTYPE(rlpIstest)="L" AND rlpIsTest ofrmBase = .Null. **-------------------------------------------------------------------- Hidden Function Init() HelpString 'Does when the object is created' This.ofrmBase = Createobject('frmBase') etc. Return .T. EndfuncrlpIstest is public variable set in my test version of the calling program.
thisform.oMySqlData = .NULL.but that doesn't seem to have helped. I resolved this issue by putting
this.IsTest = VARTYPE(rlpIstest)="L" AND rlpIsTestin the init method of the class but I'm curious as to why it retains the original value the second time it is instantiated.