
Actualizacion de registros, No actualiza el grid, ayuda!!
Publicado por jose (4 intervenciones) el 10/11/2017 23:15:07
Hola, les agradecería que me ayuden por favor, les comento mi problema:
tengo un formulario con un textbox y un grid, el cual permite buscar un registro especifico.
mi consulta es que al momento de realizar la busqueda de un producto x el grid lo filtra, y al hacerle click en el registro buscado que se encuentra en el grid, sus datos de dicho registro lo muestra en unas casillas de texto, hasta alli todo bien.
mi probleme es que al momento de actualizar dicho registro desde las casillas de texto le hago click en actualizar pero si vuelvo hacer la busqueda de algun registro el grid no me filtra nada, y si lo hace tengo que cerrar todo el programa de visual luego abrirlo y me aparecen los registros..
Por favor si pueden ayudarme con mi problema seria excelente.. gracias..!!
tengo un formulario con un textbox y un grid, el cual permite buscar un registro especifico.
mi consulta es que al momento de realizar la busqueda de un producto x el grid lo filtra, y al hacerle click en el registro buscado que se encuentra en el grid, sus datos de dicho registro lo muestra en unas casillas de texto, hasta alli todo bien.
mi probleme es que al momento de actualizar dicho registro desde las casillas de texto le hago click en actualizar pero si vuelvo hacer la busqueda de algun registro el grid no me filtra nada, y si lo hace tengo que cerrar todo el programa de visual luego abrirlo y me aparecen los registros..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
//--esto va en mi casilla de busqueda (interactive change)--//
if len(alltrim(thisform.txtsbn.value)) = 0
Go top
Thisform.text2.value=""
Thisform.text3.value=""
Thisform.text4.value=""
Thisform.text5.value=""
Thisform.text6.value=""
Thisform.text7.value=""
Thisform.text8.value=""
Thisform.text9.value=""
Thisform.text10.value=""
thisform.Refresh
else
select bienes
set filter to
set order to sbn
set filter to alltrim(bienes.sbn)=alltrim(thisform.txtsbn.value)
Thisform. Refresh()
endif
//--boton actualizar registros--//
Set exact on
Select bienes
replace idbienes with Thisform.text2.value
replace sbn with Thisform.text3.value
replace descripcion with Thisform.text4.value
replace marca with Thisform.text5.value
replace modelo with Thisform.text6.value
replace colores with Thisform.text7.value
replace serie with Thisform.text8.value
replace estado with Thisform.text9.value
replace observacion with Thisform.text10.value
Thisform.refresh
thisform.cmdactualizar.Enabled= .F.
thisform.cmdcancelar.Enabled= .F.
thisform.Txtsbn.SetFocus
//--esto va en el grid (aftter row colchange)--//
thisform.cmdactualizar.Enabled= .T.
Thisform.Text2.Value=bienes.idbienes
Thisform.text3.Value=bienes.sbn
Thisform.text4.Value=bienes.descripcion
Thisform.text5.Value=bienes.marca
Thisform.text6.Value=bienes.modelo
Thisform.text7.Value=bienes.colores
Thisform.text8.Value=bienes.serie
Thisform.text9.Value=bienes.estado
Thisform.text10.Value=bienes.observacion
Por favor si pueden ayudarme con mi problema seria excelente.. gracias..!!
Valora esta pregunta


0