code behind
Código:
If DDL_Tipo_Cierre.SelectedValue = 3 Then txt_calendar.Visible = True If txt_calendar.Text = "" Then txt_calendar.BackColor = Drawing.Color.Red txt_calendar.Text = "Fecha es Requerida" actualizar2.Visible = True Else txt_calendar.BackColor = Drawing.Color.White Dim Cmd_Solucionadas As OleDbCommand = New OleDbCommand("SISE.SP_HP_CARGAR_CONSULTA_MESA_CERRADA_SOLUCIONADA", conn) Cmd_Solucionadas.CommandType = Data.CommandType.StoredProcedure conn.Open() Dim Par_Id_GrupoSol As OleDbParameter = Cmd_Solucionadas.Parameters.Add("PAR_ID_GRUPO", OleDbType.Integer) Par_Id_GrupoSol.Value = Par_Id_Grupo Dim Par_DptoSol As OleDbParameter = Cmd_Solucionadas.Parameters.Add("PAR_DPTO", OleDbType.VarChar) Par_DptoSol.Value = Par_Departamento Dim Par_UsuarioSol As OleDbParameter = Cmd_Solucionadas.Parameters.Add("PAR_USUARIO", OleDbType.VarChar) Par_UsuarioSol.Value = Par_UsuarioLog Dim fechasel As OleDbParameter = Cmd_Solucionadas.Parameters.Add("fecha", OleDbType.DBDate) fechasel.Value = txt_calendar.Text 'Dim Par_SesionRec As OleDbParameter = Cmd_Solucionadas.Parameters.Add("PAR_PSS", OleDbType.Integer) 'Par_SesionRec.Value = Me.Txt_Sesion.Text Dim adpt_Solucionadas As New OleDbDataAdapter(Cmd_Solucionadas) Dim ds_Solucionadas As New DataSet adpt_Solucionadas.Fill(ds_Solucionadas, "T_Solucionadas") GV_Mis_Pendientes.DataSource = ds_Solucionadas GV_Mis_Pendientes.DataBind() conn.Close() End If End If