locolT.REMOVE([DEFAULT]) locolT.ADD(.colApp.ITEM(toApp.gcGUIDAppGroup).gcAPPDefault_Path,[DEFAULT]) &&ERROR1492 OLE Dispatch ... Message 2 Datatype mismatch
?.colApp.ITEM(toApp.gcGUIDAppGroup).gcAPPDefault_Path
is a stringlocolT.REMOVE([DEFAULT]) lcx = .colApp.ITEM(toApp.gcGUIDAppGroup).gcAPPDefault_Path locolT.ADD(lcx,[DEFAULT]) && same failure
lcx = .colApp.ITEM(toApp.gcGUIDAppGroup).gcAPPDefault_Path locolT.REMOVE([DEFAULT]) locolT.ADD(lcx,[DEFAULT]) && now everything is fineWhat else to reproduce?
local locolT _VFP.SETVAR('locolT',.colApp.ITEM(toApp.gcGUIDAppGroup).goGroup.ITEM(toApp.gcGUIDGroup).goPath) ** *if I do locolT = .colApp.ITEM(toApp.gcGUIDAppGroup).goGroup.ITEM(toApp.gcGUIDGroup).goPathanything works fine.
IF doRegistry.OpenKey(lcKey,HKEY_LOCAL_MACHINE)=ERROR_SUCCESS THEN *get values DO CASE CASE EMPTY(.colApp.ITEM(toApp.gcGUIDAppGroup).goGroup.GETKEY(toApp.gcGUIDGroup)) doRegistry.CloseKey() RETURN CASE _VFP.SETVAR('locolT',.colApp.ITEM(toApp.gcGUIDAppGroup).goGroup.ITEM(toApp.gcGUIDGroup).goPath) CASE !EMPTY(locolT.ITEM([DEFAULT])) *use default from reg CASE !EMPTY(.colApp.ITEM(toApp.gcGUIDAppGroup).gcAPPDefault_Path) *let's use parent default locolT.REMOVE([DEFAULT]) locolT.ADD(.colApp.ITEM(toApp.gcGUIDAppGroup).gcAPPDefault_Path,[DEFAULT]) &&this one fails ...I do things like that for a long time now.