>lcAlias=ALLTRIM(this.Alias)
>i= AFIELDS(A_CAMPOS,lcAlias)
>lcTables=THIS.TABLES
>m.lcUList=''
>m.lcNList=''
>m.lcSqhema=''
>FOR N=1 TO i
> m.lcUList=A_CAMPOS(N,1)+','+m.lcUList
> m.lcNList=A_CAMPOS(N,1)+' '+lcTables+'.'+A_CAMPOS(N,1)+','+m.lcNList
> m.lcSqhema=A_CAMPOS(N,1)+' '+A_CAMPOS(N,2)+'('+ALLTRIM(STR(A_CAMPOS(N,3)))+','+ALLTRIM(STR(A_CAMPOS(N,4)))+'),'+m.lcSqhema
>ENDFOR
>
>THIS.UPDATABLEFIELDLIST=LEFT(lcUList,LEN(lcUList)-1)
>THIS.UPDATENAMELIST=LEFT(lcNList,LEN(lcNList)-1)
>THIS.CURSORSCHEMA=LEFT(lcSqhema,LEN(lcSqhema)-1)
>
>
>I would be possible get a copy of the cursor adapter builder proyect to
>correct those errors? or we can do something about that, because
>cursoradapter is a very nice feature.
>
Hi Carlos,
I believe, you can find the source code for CursorAdapter/DataEnvironment builder in ...\Microsoft Visual FoxPro 8\Tools\xsource\xsource.zip .
However, setting CursorSchema in AfterCursorFill event is too late because it is called after CursorFill has been executed.
Thanks,
Aleksey.