Page 1 of 1
PROBLEMAS CON GRID.../PROBLEMS WITH GRID
Posted: Mon Apr 29, 2013 11:10 pm
by Leopoldo Blancas
Hola a todos...
He tratado parte de la mañana de hacer un ejemplo de un grid que actualiza los datos de dos TextBox al cambiar de Item en la Grid y no puedo hacerlo... también trato de que el grid_1 ilumine todo el registro completo y no lo he logrado.
El ejemplo me da error al cambiar de Item, en el archivo "Control.prg" al final.
Alguna posible solución... Gracias
Polo
*---------------------------------------------------------------------------------------------------------------------------
Hi Everyone ..
I have tried most of the morning to make an example of a grid that updates data from two TextBox to change the Grid Item and I can not do it ... I also try to illuminate the entire record grid_1 complete and I've failed.
The example I get an error when changing Item, in the "Control.prg" at the end.
Any possible solution ... thanks
Polo
Code: Select all
PROCEDURE CambiaGrid()
LOCAL aReg := Win_Control.Grid_1.VALUE
LOCAL nValor := 0
LOCAL cTipoValor
MiArea('Clientes','ICodClie')
cTipoValor := VALTYPE (aReg)
MsgBox("Tipo de valor: "+cTipoValor)
MsgBox("LONGITUD DEL ARRAY: " + STR(LEN(aReg)))
nValor := aReg[1,1] // aquí me da ERROR
MsgBox(STR((nValor)))
/*
Goto nReg
Win_Control.Text_1.VALUE := Clientes->CodClie
Win_Control.Text_2.VALUE := Clientes->Nombre
*/
RETURN NIL
Re: PROBLEMAS CON GRID.../PROBLEMS WITH GRID
Posted: Tue Apr 30, 2013 3:52 pm
by Leopoldo Blancas
Ninguna sugerencia a mi problema? del Post de arriba.
Gracias
Polo
*---------------------------------------------------------------------------------------------------------
No suggestions to my problem? Post above.
thanks
Polo
Re: PROBLEMAS CON GRID.../PROBLEMS WITH GRID
Posted: Tue Apr 30, 2013 9:02 pm
by Leopoldo Blancas
QUE FRUSTRANTE ES ESTO...
*-----------------------------------------------
FRUSTRATING IS THAT THIS...
Re: PROBLEMAS CON GRID.../PROBLEMS WITH GRID
Posted: Tue Apr 30, 2013 11:18 pm
by JALMAG
Creo que en los Grid, no es Value sino Cell, es decir:
En vez de Win_Control.Grid_1.VALUE sería Win_Control.Grid_1.CELL puesto que aludes a la posición aReg[1,1] ademas creo que es con paréntesis aReg(1,1)
Puedes probar por ahí y depurando. Siento no poder ayudarte mas y mejor.
Saludos desde España
En Minigui extended Samples->BASIC tienes varios ejemplos sobre tratamientos de las GRID
Re: PROBLEMAS CON GRID.../PROBLEMS WITH GRID
Posted: Wed May 01, 2013 12:04 am
by danielmaximiliano
JALMAG wrote:Creo que en los Grid, no es Value sino Cell, es decir:
En vez de Win_Control.Grid_1.VALUE sería Win_Control.Grid_1.CELL puesto que aludes a la posición aReg[1,1] ademas creo que es con paréntesis aReg(1,1)
Puedes probar por ahí y depurando. Siento no poder ayudarte mas y mejor.
Saludos desde España
En Minigui extended Samples->BASIC tienes varios ejemplos sobre tratamientos de las GRID
Value devuelve la posicion dentro del
Grid.
si el grid es unidimensional devuelve un entrero, sino un Array, el primer vector corresponde al Row, y el segundo a Col.
creo hay un Bug dentro del Grid, ya que probe con hmg.3.1.2 y con hmg.3.0.46 y es exactamente lo mismo... voy a seguir estudiando el
codigo..
Re: PROBLEMAS CON GRID.../PROBLEMS WITH GRID
Posted: Wed May 01, 2013 3:13 am
by Leopoldo Blancas
Gracias por contestar...
Si es por eso que primero verifico que tipo de dato y me devuelve "A", despues le digo que longitud tiene y me dice 2, entonces le pido el primer elemento del array y es cuando me da error...
Creo que es un Bug...
Gracias
Polo
Re: PROBLEMAS CON GRID.../PROBLEMS WITH GRID
Posted: Wed May 01, 2013 6:12 pm
by danielmaximiliano
Leopoldo Blancas wrote:Gracias por contestar...
Si es por eso que primero verifico que tipo de dato y me devuelve "A", despues le digo que longitud tiene y me dice 2, entonces le pido el primer elemento del array y es cuando me da error...
Creo que es un Bug...
Gracias
Polo
Polo : Tú Grid contiene este codigo
Code: Select all
DEFINE GRID Grid_1
ROW 120
COL 50
WIDTH 460
HEIGHT 315
VALUE { 1 , 1 }
WIDTHS { 100 , 340 }
HEADERS {'CODIGO' , 'NOMBRE'}
FONTNAME "Arial"
FONTSIZE 12
TOOLTIP ""
ONCHANGE CambiaGrid()
ROWSOURCE "CLIENTES"
COLUMNFIELDS { 'CodClie' , 'Nombre' }
LOCKCOLUMNS 0
CELLNAVIGATION .F.
END GRID
Como veras VALUE { 1 , 1 } es la posicion dentro del GRID, es ROW 1, COL 1. al pedir el valor de VALUE
te va a devolver un ARRAY de longitud 2, el primer vector o elemento sera ROW el segundo sera COL.
Syntax:
Value <xValue> (Control Definition)
<WindowName>.<ControlName>.Value := <Value>
<WindowName>.<ControlName>.Value -> <Value>
<Value> type depends upon the control type:
DATEPICKER : Date.
MONTHCALENDAR: Date
TEXTBOX : Character.
TEXTBOX (Numeric) : Numeric.
TEXTBOX (Password) : Character.
RADIOGROUP : Numeric (Option Selected).
CHECKBOX : Logical.
COMBOBOX : Numeric (Row Selected).
LISTBOX : Numeric (Row Selected).
LISTBOX (Multiselect): Numeric Array (Rows Selected).
GRID (Standard): Numeric (Row Selected).
GRID (Multiselect): Numeric Array (Rows Selected).
GRID (CellNavigation): Numeric Array (Row and col selected).
EDITBOX : Character.
TAB : Numeric (Active Page).
SPINNER : Numeric.
SLIDER : Numeric.
BROWSE: Numeric (Selected Record Number (RecNo()))
TIMER : Numeric (Write Only)
PROGRESSBAR : Numeric (Write Only)
TOOLBAR BUTTON: Logical. .T. when button is selected (Check style) .
IPADDRESS: Numeric array (four elements).
TREE: Selected item ID.
LABEL: Character.
Re: PROBLEMAS CON GRID.../PROBLEMS WITH GRID
Posted: Wed May 01, 2013 6:50 pm
by Leopoldo Blancas
Hola Daniel....
No se como disculparme pero la verdad como un amigo tiene una expresión cuando alguien comete un error "Básico", de "Principiante", "OBVIO".........y la frase es: "MALDITAS DROGAS!!!"...
En serio que no di con la respuesta hasta ahorita... si me devuelve un array del tipo aReg = {Row,Col}, para obtener el valor del primer elemento tengo que poner MiRow := aReg[1] para obtener la ROW... Y NO MiRow := aReg[1][1] en serio que se me fueron las patas... "MALDITAS DROGAS!!!".
Polo
*---------------------------------------------------------------------------------------------------------------------------------------------------
Hi Daniel ....
Do not know how to apologize but the truth as a friend has an expression when someone makes a mistake "Basic", from "Beginner", "OBVIOUS" ......... and the phrase is: "DAMN DRUGS! "...
Seriously I did not give the answer until now ... if I return an array of type AREG = {Row, Col}, to obtain the value of the first element I have to put Mirow: = Areg [1] for the ROW ... And NO Mirow: = Areg [1] [1] mean that I used the legs ... "DAMN DRUGS!".
Polo