Que tal, buen día.
Solicitando su ayuda.
Tengo un xbrowse de 5 Columnas, pero solo quiero poder moverme de la 1 a la 2 (arriba y abajo ...todos los renglones)
Alguien me pudiera echar la mano ??
Saludos.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Mover solo sobre algunas columnas del xbrowse
Javier,
Prueba a hacer esto:
oBrw:aCols[ 3 ]:nCreationOrder := 5
De no funcionar, por favor prueba esto:
MsgInfo( oBrw:aCols[ 5 ]:nCreationOrder )
y dime que muestra
Antonio , buen dia
Gracias por tu respuesta
oBrw:aCols[ 3 ]:nCreationOrder := 5
No hace nada
MsgInfo( oBrw:aCols[ 5 ]:nCreationOrder )
Me marca un "5"
Javier:
Me ha interesado tu requerimiento ya que es posible que muy pronto lo necesite.
He codificado lo siguiente (FW1204). Adaptalo a tus necesidades.
Saludos.
Me ha interesado tu requerimiento ya que es posible que muy pronto lo necesite.
He codificado lo siguiente (FW1204). Adaptalo a tus necesidades.
//--------------------------
Function Probando()
local oDlg, oBrw
LOCAL cOldSele := Select()
DBSELECTAREA(.t.,,"MAEPRODT","MAEPRODT",.T.)
DEFINE DIALOG oDlg SIZE 600,500 PIXEL
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
DATASOURCE "MAEPRODT" ;
COLUMNS "CASILLA", "FECHAACT", "FECHA", "COSTOFOB","MARGENFOB" ; //CINCO COLUMNAS TODAS VISIBLES
CELL LINES NOBORDER
WITH OBJECT oBrw
:lColChangeNotify := .t.
:lKinetic := .f.
:nStretchCol := 1
:lHScroll := .f.
END
oBrw:CreateFromCode()
oBrw:bChange := {|nRow,nCol| if(oBrw:nColSel>=3, (oBrw:nColSel:=2,oBrw:Refresh()) ,) }
ACTIVATE DIALOG oDlg CENTERED
dbSelectArea(cOldSele)
return nilSaludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Francisco, Buen Dia
Gracias por tu ayuda
Quedo perfecto con 2 líneas:
Saludos.
Gracias por tu ayuda
Quedo perfecto con 2 líneas:
oBrow:lColChangeNotify := .t.
oBrow:bChange := {|nRow,nCol| if(oBrow:nColSel>=3, (oBrow:nColSel:=2,oBrow:Refresh()) ,) }Saludos.
VitalJavier wrote: Francisco, Buen Dia
Gracias por tu ayuda
Quedo perfecto con 2 líneas:lColChangeNotify := .t.
oBrow:bChange := {|nRow,nCol| if(oBrow:nColSel>=3, (oBrow:=2,oBrow:Refresh()) ,) }
Me alegra que te haya sido util.
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql