Visual Basic - Sobre el DBGrid (urgente)

Life is soft - evento anual de software empresarial
 
Vista:

Sobre el DBGrid (urgente)

Publicado por Alejandro (172 intervenciones) el 27/05/2003 03:34:38
Hola foro:
ya he preguntado esto en el foro y me dijeron que con el dbgrid no se puede trabajar en modo no enlazado. No estoy de acuerdo, es más, en vb5.0 hay un ejemplo de como hacerlo pero con una matriz.
Mi pedido es: alguien me puede mandar un ejemplo de como listar, ingresar, validar y eliminar datos en un dbgrid en este modo?.
Tengo entendido que los eventos que hay que tener en cuenta son 3 o 4; unvoundreaddata, unboundadddata y algun otro mas.
Desde ya agradezco vuestra ayuda.
Saludos
Alejandro.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Sobre el DBGrid (urgente)

Publicado por Pedro Luis (878 intervenciones) el 27/05/2003 14:21:34
Tenemos un Grid (no DbGrid ni DataGrid) que se llama gcrotales que rellenamos con una tabla llamada Ganado

Sub VerCrotales()
Dim N As Integer, Filas As Integer
Filas = gcrotales.Rows
For N = Filas To 3 Step -1
gcrotales.RemoveItem N - 1
Next
If Ganado.Index <> "cea" Then Ganado.Index = "cea"
Ganado.Seek "=", Bus
N = 1
gcrotales.Visible = True
Do While Ganado!cea = Bus
With gcrotales
.Row = N
If Not IsNull(Ganado!crotal) Then
.Col = 0: .Text = Ganado!crotal
End If
If Not IsNull(Ganado!especie) Then
.Col = 1: .Text = Ganado!especie
End If
If Not IsNull(Ganado!raza) Then
.Col = 2: .Text = Ganado!raza
End If
If Not IsNull(Ganado!aptitud) Then
.Col = 3: .Text = Ganado!aptitud
End If
If Not IsNull(Ganado!sexo) Then
.Col = 4: .Text = Ganado!sexo
End If
If Not IsNull(Ganado!enfermedad) Then
.Col = 5: .Text = Ganado!enfermedad
End If
If Not IsNull(Ganado!aopositivo) Then
.Col = 6: .Text = Format(Ganado!aopositivo, "#,###")
End If
If Not IsNull(Ganado!nacimiento) Then
.Col = 7: .Text = Format(Ganado!nacimiento, "##-##-####")
End If
End With
N = N + 1
gcrotales.AddItem N
Ganado.MoveNext
If Ganado.EOF Then Exit Do
Loop
gcrotales.RemoveItem N
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar