Mensaje dentro de Servicios Webs

Responder 
#1 - 14/10/2011 22:49:28 Reporta abuso | Link Permanente
ALONSO
Usuario no registrado
PROBLEMAS CON MI GRIEDVIEW

Responder Citar
HOLA A TODOS ES LA PRIMERA VEZ QUE POSTEO EN ESTE FORO....MI RPOBLEMA ES EL SIGUIENTE



EN ESTA IMAGEN COMO VERAN TENGO MI GRIED VIEW LA CUAL ES LLENADO POR UNA BASE DE DATOS Y LO QUE HACE MIS CHECHBOX ES QUE AL ACTIVARLOS ESTE GUARDA LA FILA Y AL DESACTIVARLO ESTE LO ELIMININA, EL PROBLEMA ESTA EN LA COLUMNA DONDE ESTA LA HORA SI SE DAN CUENTA LA HORA ES LA MISMA PARA LAS TRES CUANDO HAN SIDO MARCADO EN DISTINTOS TIEMPOS AL PARECER ESTA TOMANDO LA HORA DE LA ULTIMA FILA INGRESADA....LES EDJO MI CODIGO PARA QUE PUEDAN VER COMO ES QUE HAGO EL DESARROLLO.....

 Dim query As String = "insert into tb_emp_indu (nombre_empleado,ind_01,ind_02,ind_04) values (@nombre,@ind01, @ind02,getdate())"
            Dim cmd As New SqlCommand(query, conn)
            Dim del As String = "UPDATE tb_emp_indu set nombre_empleado='',ind_01='',ind_02=''where nombre_empleado = @nombre AND ind_01 = @ind01"
            Dim fe As New SqlCommand(del, conn)
            Dim qw As String = "select nombre_empleado,id_indumentaria,descripcion_indu ,CAST(CASE WHEN ind_02 IS NULL THEN 0 ELSE 1 END AS BIT ) as tipo,IND_02,getdate() from tb_indumentaria left JOIN tb_emp_indu ON descripcion_indu = ind_01 AND NOMBRE_EMPLEADO = @nombre"
            Dim ac As New SqlCommand(qw, conn)
            For Each row As GridViewRow In gwd.Rows
                Dim check As CheckBox = TryCast(row.FindControl("CheckBox1"), CheckBox)
                If check.Checked = True Then
                    conn.Open()
                    fe.Parameters.Clear()
                    cmd.Parameters.Clear()
                    ac.Parameters.Clear()
                    fe.Parameters.AddWithValue("@nombre", TextBox1.Text)
                    fe.Parameters.AddWithValue("@ind01", gwd.Rows(row.RowIndex).Cells(3).Text)
                    cmd.Parameters.AddWithValue("@nombre", TextBox1.Text)
                    cmd.Parameters.AddWithValue("@ind01", gwd.Rows(row.RowIndex).Cells(3).Text)
                    cmd.Parameters.AddWithValue("@ind02", TextBox5.Text)
                    ac.Parameters.AddWithValue("@nombre", TextBox1.Text)
                    fe.ExecuteNonQuery()
                    cmd.ExecuteNonQuery()
                    Dim r As SqlDataReader = ac.ExecuteReader(CommandBehavior.CloseConnection)
                    gwd.DataSource = r
                    gwd.DataBind()
                    conn.Close()
                Else
                    conn.Open()
                    fe.Parameters.Clear()
                    ac.Parameters.Clear()
                    fe.Parameters.AddWithValue("@nombre", TextBox1.Text)
                    fe.Parameters.AddWithValue("@ind01", gwd.Rows(row.RowIndex).Cells(3).Text)
                    ac.Parameters.AddWithValue("@nombre", TextBox1.Text)
                    fe.ExecuteNonQuery()
                    Dim r As SqlDataReader = ac.ExecuteReader(CommandBehavior.CloseConnection)
                    gwd.DataSource = r
                    gwd.DataBind()
                    conn.Close()
                End If
            Next

ESPERO ME PUEDAN AYUDAR
Volver arriba