mostrar una columna con el número progresivo en un xBrowse

[anserkk]

Amigos,

¿Cómo puedo mostrar el progresivo no en una columna, mientras que el uso de RecordSet (ADO) con xBrowse

Sé cómo hacer esto, si un conjunto se utiliza en xBrowse oBrw: nArrayAt

Que estoy recibiendo de error cuando intento nArrayAt y nAt

Error Base/1111 Argument Error : Len From ErroSys, Line:0

Code

Code: Select all  Expand view

*-----------------------------------*
FUNCTION connect()
*-----------------------------------*
Local SQL,oBrw
Local oCon := CreateObject('ADODB.Connection')
Local oRecSet := CreateObject( "ADODB.RecordSet" )

oCon:ConnectionString:= "Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.170;Port=3306;Database=MyDataBase;User=MyUser;Password=MyPassword;Option=3;"
TRY
   oCon:Open()
   msgInfo("Connected to Database")
CATCH oError
   MsgInfo("Connection Failed")
   RETURN(.F.)
END

oRecSet:CursorLocation := adUseClient
oRecSet:LockType := adLockOptimistic
oRecSet:CursorType := adOpenDynamic
oRecSet:Source := "SELECT * FROM ISSUE_TRA WHERE FIN_YEAR=2004"
oRecSet:ActiveConnection(oCon)
oRecSet:Open()

if oRecSet:BOF .AND. oRecSet:EOF
   Msginfo("No Records")
   Return .F.
Endif

oRecSet:MoveFirst()

@0,0 XBROWSE oBrw ;
     OF oWnd ;         
     OBJECT oRecSet;
     LINES CELL

oCol:=oBrw:AddCol()
oCol:cHeader:="No #"
oCol:bStrdata:={ || oBrw:nArrayAt }   // Problem is here

oBrw:CreateFromCode()

RETURN .T. 

Gracias

Anser

[Daniel Garcia-Gil]

prueba esto...

Code: Select all  Expand view

oCol:bStrData:=GenProgessNumber( oBrw )
....

function GenProgressNumber( oBrw )
return {|| oBrw:nArrayAt }



[Armando]

Anser:

Intenta con oRecSet:AbsolutePosition()

Code: Select all  Expand view

oCol:bStrdata:={ || TRANSFORM(oRecSet:AbsolutePosition(),"@Z 99999") }


:AbsolutePosition() es el equivalente a la función RecNo() en DBF's

Saludos

[anserkk]

Estimado Armando

Su solución trabajado

Code: Select all  Expand view

oCol:bStrdata:={ || TRANSFORM(oRecSet:AbsolutePosition(),"@Z 99999") }


Estimado mcfox

su solución no funcionó y que estaba dando error

Code: Select all  Expand view

oCol:bStrData:=GenProgessNumber( oBrw )
....

function GenProgressNumber( oBrw )
return {|| oBrw:nArrayAt }

Por lo tanto, ha cambiado su código en GenProgressNumber( oBrw ) a

Code: Select all  Expand view

function GenProgressNumber( oBrw )
return {|| str(oBrw:nArrayAt) }

Al añadir str I evitarse el error, pero no progresiva en el xBrowse es siempre 0 en todas las líneas.

Gracias por tu ayuda.

Me dirijo aquí que lo que he aprendido y espero que pueda ser útil para los neófitos como yo y ayudarles a reducir su curva de aprendizaje.

Así que esta es la forma de obtener un progresivo no en xBrowse

SI matriz se utiliza en xBrowse entonces

Código:

Code: Select all  Expand view

oCol:bStrData: = { || oBrw:nArrayAt }

Si se utiliza DBF en xBrowse entonces

Código:

Code: Select all  Expand view

oCol:bStrData: = { | | str(RecNo() ) } / / Estoy dudoso de lo que ocurre aquí si la DBF está indexado

Si se utiliza de registros en xBrowse
Código:

Code: Select all  Expand view

oCol: bStrdata: = {| | TRANSFORM(oRecSet:absolutePosition(),"Z 99999 ") }
                 Oregón
oCol:bStrdata: = { | | str (oRecSet:absolutePosition() ) }


Saludas

Anser