Recorrer Dataset y cambiar valores
Publicado por Becario (7 intervenciones) el 30/04/2008 11:39:42
Bueno el tema es que tengo una fila de mi dataset que me devuelve o 0,1,2 de la consulta a la base de datos lo que quiero es que a la hora de mostrarlos por el gridview me cambie el o por "Pendiente", el 1 por "aprobada" y el 2 por "Rechazada".
Pongo aqui el codigo para que sea mas facil:
Imports System.Data
Imports System.Data.Sql
Imports system.data.sqlClient
Partial Class Mostrar
Inherits System.Web.UI.Page
Dim conexionBD As SqlConnection
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conexionBD = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("BDCompromisos").ConnectionString)
Dim Param1 As String
Dim Param2 As String
Dim Param3 As String
Dim Param4 As String
Dim Param5 As String
Dim Param6 As String
Dim Param7 As String
Dim Param8 As String
Param1 = Request("id")
Param2 = Request("CodCli")
Param3 = Request("CliNombre")
Param4 = Request("Recl")
Param5 = Request("UsuarioMail")
Param6 = Request("Status")
Param7 = Request("Fecha1")
Param8 = Request("Fecha2")
Dim RD1 As New RecuperarDatos
Dim NewDS1 As New Integer
If Param1 = "" And Param2 = "" And Param3 = "" And Param4 = "" And Param5 = "" And Param6 = "SELECCIONE" And Param7 = "" And Param8 = "" Then
Label8.Visible = True
Label8.Text = "<b>Por favor, rellene como minimo un campo de busqueda</b>"
Label8.ForeColor = Drawing.Color.Red
Else
NewDS1 = RD1.executeSQL1(conexionBD, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8)
Dim RD As New RecuperarDatos
Dim NewDS As New DataSet
If NewDS1 >= 1 Then
Label8.Text = "<b>Reclamación/nes de la referencia encontrada</b>"
Label8.Visible = True
Label8.ForeColor = Drawing.Color.Black
NewDS = RD.executeSQL(conexionBD, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8)
GridView1.DataSource = NewDS.Tables("BDCompromisos").DefaultView
GridView1.DataBind()
Else
NewDS1 = 0
Label8.Text = "<b>No se ha encontrado ningun registro. </b>"
Label8.Visible = True
Label8.ForeColor = Drawing.Color.Red
End If
End If
End Sub
Pongo aqui el codigo para que sea mas facil:
Imports System.Data
Imports System.Data.Sql
Imports system.data.sqlClient
Partial Class Mostrar
Inherits System.Web.UI.Page
Dim conexionBD As SqlConnection
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conexionBD = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("BDCompromisos").ConnectionString)
Dim Param1 As String
Dim Param2 As String
Dim Param3 As String
Dim Param4 As String
Dim Param5 As String
Dim Param6 As String
Dim Param7 As String
Dim Param8 As String
Param1 = Request("id")
Param2 = Request("CodCli")
Param3 = Request("CliNombre")
Param4 = Request("Recl")
Param5 = Request("UsuarioMail")
Param6 = Request("Status")
Param7 = Request("Fecha1")
Param8 = Request("Fecha2")
Dim RD1 As New RecuperarDatos
Dim NewDS1 As New Integer
If Param1 = "" And Param2 = "" And Param3 = "" And Param4 = "" And Param5 = "" And Param6 = "SELECCIONE" And Param7 = "" And Param8 = "" Then
Label8.Visible = True
Label8.Text = "<b>Por favor, rellene como minimo un campo de busqueda</b>"
Label8.ForeColor = Drawing.Color.Red
Else
NewDS1 = RD1.executeSQL1(conexionBD, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8)
Dim RD As New RecuperarDatos
Dim NewDS As New DataSet
If NewDS1 >= 1 Then
Label8.Text = "<b>Reclamación/nes de la referencia encontrada</b>"
Label8.Visible = True
Label8.ForeColor = Drawing.Color.Black
NewDS = RD.executeSQL(conexionBD, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8)
GridView1.DataSource = NewDS.Tables("BDCompromisos").DefaultView
GridView1.DataBind()
Else
NewDS1 = 0
Label8.Text = "<b>No se ha encontrado ningun registro. </b>"
Label8.Visible = True
Label8.ForeColor = Drawing.Color.Red
End If
End If
End Sub
Valora esta pregunta


0