elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  MSFlexgrid pierde encabezados
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: MSFlexgrid pierde encabezados  (Leído 2,138 veces)
Urbe Tecnologica

Desconectado Desconectado

Mensajes: 94


Non NobiS, DomiNe, Sed NomIne tuo Da GLoriaM


Ver Perfil
MSFlexgrid pierde encabezados
« en: 23 Noviembre 2009, 19:37 »

Buenas amigos mi problema es:
*estoy trabajando con DAO
*tengo una bd en access con 1 tabla
*tengo un MSFlexgrid, 1 textbox, 3 combos
*hago las tres operaciones basicas, ALTA, BAJA, MODIFICACION.
*cuando hago la BAJA, es decir, BORRAR, me borra el registro pero tambien el encabezado del MSFlexgrid...no le encuentro la vuelta...aca esta el codigo del boton borrar:

'BOTON BORRAR

If fila <> 0 Then
A = MsgBox("Borrar el dato?", "49", "Sistema BDLegis")
If A = 1 Then
rs1.Delete
MSFlexGrid1.Clear
End If
f = 0
Set rs1 = BDLegis.OpenRecordset("SELECT * " & "FROM Legis")

'If rs1.EOF = False Then rs1.MoveFirst
While rs1.EOF = False
f = f + 1
MSFlexGrid1.TextMatrix(f, 0) = rs1.Fields("Tipo")
MSFlexGrid1.TextMatrix(f, 1) = rs1.Fields("Tema")
MSFlexGrid1.TextMatrix(f, 2) = rs1.Fields("Comision")
MSFlexGrid1.TextMatrix(f, 3) = rs1.Fields("Estado")
MSFlexGrid1.TextMatrix(f, 4) = rs1.Fields("Ordenar")
rs1.MoveNext
Wend
End If

' BLANQUEO DE CONTROLES
Text1 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
CmdAceptar.Enabled = False
CmdModificar.Enabled = False
CmdBorrar.Enabled = False
CmdImprimir.Enabled = False


En línea

Urbe Tecnologica

Desconectado Desconectado

Mensajes: 94


Non NobiS, DomiNe, Sed NomIne tuo Da GLoriaM


Ver Perfil
Re: MSFlexgrid pierde encabezados
« Respuesta #1 en: 23 Noviembre 2009, 21:35 »

Bueno... :P
VB es un gran lenguaje, pues permite a ignorantes como yo releer mil veces y aprender de errores taaaaaaaaaaaaaaaaaan sencillos... me rompi la croqueta con el tema este de los encabezados Y LA RESPUESTA ESTABA FRENTE A MI !  :o

Solo mirando con atencion me di cuenta: tenia que hacer lo siguiente:
MSFlexGrid1.Clear
MSFlexGrid1.TextMatrix(0, 0) = "Tipo de Proyecto"
MSFlexGrid1.TextMatrix(0, 1) = "Tema"
MSFlexGrid1.TextMatrix(0, 2) = "Comision"
MSFlexGrid1.TextMatrix(0, 3) = "Estado Legislativo"
MSFlexGrid1.TextMatrix(0, 4) = "Nº de Proyecto"


Perdon por hacerlos perder el tiempo, y espero que este error que al final encontre yo mismo la respuesta tan solo PRESTANDO MAS ATENCION a mi codigo...espero que le sirva a algun despistado algun dia ahi esta la solucion.. ::)


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Encabezados precompilados en Visual C++
Programación C/C++
WalterBlanco 1 977 Último mensaje 22 Septiembre 2015, 16:43
por WalterBlanco
Encabezados de criptografía en bibliotecas criptográficas
Criptografía
clay2332xd 7 507 Último mensaje 24 Febrero 2020, 04:11
por engel lex
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines