TDBGrid: ¿Cómo leo los datos del elemento nuevo? - VB-MUNDO

Eynar · #1 (**permalink**) 08-08-2005, 22:51:55

Hola Amig@s.

Estoy trabajando con un TDBGrid atado a un RDC. En el evento After_Insert quiero leer los datos del elemento que estoy agregando, pero los datos que me muestra en TDBGrid.Columns("Campo").Value son los correspondiente a los datos de la fila donde estaba justo antes de insertar el nuevo elemento.

Lo que pretendo en After_Insert es validar que si el usuario al querer cambiarse de fila no halla dejado celdas vacías, pero no he encontrado en la ayuda cómo leer los datos de la celda que está por insertarse para validarla antes que los datos se almacenen en la base de datos.

Saludos y espero sus comentarios.

Ronald_Leon_Madrid · #2 (**permalink**) 11-08-2005, 15:07:33

Hola :

que tal un gusto en saludarte, entiendo perfectamente de lo que quieres a ser, a un metodo del TrueDBgrid que te devuelve la Fila seleccionada y para que puedes valida los datos

Código:

dim lnRow as Long
lnRow = TDBGrid.Bookmark

Saludos cordiales,

Eynar · #3 (**permalink**) 11-08-2005, 17:27:13

Gracias por tu respuesta Ronald.

Ahora lo que no sé es cómo referenciar a la celda actual, que es la que se está insertando en este momento para validar su contenido.

No sé si la celda que está por insertarse ya tiene un número de celda y columna a la cual hacerle referencia, moverse o asignarle el foco a ella en caso de que su contenido sea vacío.

Saludos

Ronald_Leon_Madrid · #4 (**permalink**) 11-08-2005, 17:36:39

Hola;

que tal un gusto en saludarte nuevamente, lo que pasa es que yo tengo otra forma de llenar las Grillas, y es de la siguiente manera :

Código:

Public Sub rTraerDatos(ByVal psSql As String)
Dim lrRs            As ADODB.Recordset
Dim objTipo         As TraTablas.clsTipoDocQry
Dim lnI             As Long
Dim lsCadErr        As String

On Error GoTo Errores

    Set objTipo = New TraTablas.clsTipoDocQry
    lsCadErr = objTipo.LeerDatos(psSql, lrRs)
    If mxArrTipo Is Nothing Then
        Set mxArrTipo = New XArrayDB
    Else
        Set mxArrTipo = Nothing
        Set mxArrTipo = New XArrayDB
    End If
    mxArrTipo.ReDim 0, lrRs.RecordCount - 1, 0, cnTipoOperTip
    lnI = 0
    Do While Not lrRs.EOF
        mxArrTipo.Value(lnI, cnTipo_Id) = "" & Trim(lrRs!TipoDoc_Id)
        mxArrTipo.Value(lnI, cnNomDoc) = "" & Trim(lrRs!NomDoc)
        mxArrTipo.Value(lnI, cnTipoOperTip) = mnConsultar
        lnI = lnI + 1
        lrRs.MoveNext
    Loop
    Set tdbgTipo.Array = mxArrTipo
    tdbgTipo.Rebind
    Set objTipo = Nothing
    Set lrRs = Nothing
    Exit Sub
    
Errores:
    Set objTipo = Nothing
    Set lrRs = Nothing
    MsgBox CStr(Err.Number) & " " & Err.Description, vbCritical + vbMsgBoxHelpButton, Me.Caption, Err.HelpFile, Err.HelpContext
    
End Sub

Tendrias que investigar el xArray, arreglo de datos.
Saludos cordiales,