Ahora mi duda es la siguiente: Me voy aponer a editar esas celdas, pero¿ tengo que crear una tabla para folder y xbrowse sabiendo que son variables? o¿ existe forma de decirle que modifique la tabla del folder en la que estoy y no se modifique en las demás? , además esto me es importante también para después poder guardar los datos y recuperarlos.
Por cierto, si le pongo las celdas y si las filas no llegan hasta bajo del xbrowse me aparece la linea de separación de la columna (la de fila se acaba en la ultima columna) hasta el final aunque no hayan lineas de array. ¿Existe forma de que no salga esa linea y se acabe donde acaban los registros? Es por estética.
Muchas Gracias por vuestra ayuda.
- Code: Select all Expand view
- vllenandofilas:='" "'
for i:= 2 to vcolumnas
vllenandofilas:=vllenandofilas+'," "'
next i
for i:=vfilas to 1 step -1
aadd(tfilas,{transform(i,"999"),&vllenandofilas})
next i
vprompt:='"'+chr(65)+"'"+'"'
VASCII:= 66
for i:=2 to vprofundo
vprompt:=vprompt+","+'"'+chr(vascii++)+"'"+'"'
next i
vfolders:='"FOLDERS"'
FOR i:= 2 to vprofundo
vfolders:=vfolders+","+'"FOLDERS"'
next i
DEFINE DIALOG oDDATOS RESOURCE "FOLDER_VARIOS" TITLE " " OF oApp:aMod[20]:oWnd
REDEFINE FOLDER oFld ID 101 OF oDDATOS UPDATE;
PROMPT &vprompt DIALOGS &vfolders ADJUST
FOR i:=1 to vprofundo
REDEFINE XBROWSE oBrwt ID 101 autocols;
HEADERS V_Header ;
SIZES V_ColSize ;
ARRAY tfilas CELL LINES of oFld:aDialogs[i]
next i
oBrwt:bLDblClick := {|| MsgInfo("Tu function") }
oBrwt:bKeychar := {|nkey| iif(nkey=13,MsgInfo("Mi Funcion"),)}
oBrwt:lColDividerComplete := .t.
*
oBrwt:nFreeze:=1
ACTIVATE DIALOG oDDATOS CENTER ON INIT (oFld:aDialogs[ 1 ]:setfocus(),.f.)