[Resolvido] Adicionar coluna no GridView

[cintiadel 0]

Estou tentando adicionar uma coluna no gridview via código, de acordo com o que é selecionando no dropdownlist existente na página, essa coluna deve ou não ser exibida.

Mas não estou conseguindo chamar o campo que esta na procedure, para popular essa coluna.

Segue abaixo o código que popula o gridview e tambem da funçao que chama a procedure.

 

 

Private Sub gridBind()

Dim oPJ As New ClasseTeste
Dim oDs As DataTable = oPJ.Busca(ViewState("SortExpr")).Tables(0)

Dim oDv As DataView = oDs.DefaultView

ResetPageIndex(gridResult, oDv)

gridResult.DataSource = oDv



If dropdownlist.SelectedValue <> 0 Then

Dim teste As New BoundColumn

teste.DataField = oDs.Columns(9).ColumnName("Especialidade").ToString

gridResult.Columns.Add(teste)

End If

-----Função da ClasseTeste que executa a procedure e faz a busca ------

Public Function Busca(ByVal order As String) As DataSet
Dim cnn As New SqlConnection

    	cnn.ConnectionString = _stStringConexao

    	Dim cmd As New SqlCommand("st_teste", cnn)



    	With cmd

        	.CommandType = CommandType.StoredProcedure

        	.Parameters.Add("@stRazaoSocial", SqlDbType.VarChar, 100).Value = CSDb.CNull(_stRazaoSocial)

        	.Parameters.Add("@stEndereco", SqlDbType.VarChar, 100).Value = CSDb.CNull(_stEndereco)

        	.Parameters.Add("@stEstadoID", SqlDbType.VarChar, 2).Value = CSDb.CNull(_stEstadoID)

        	.Parameters.Add("@EspecialidadeID", SqlDbType.VarChar, 100).Value = CSDb.CNull(_inEspecialidadeID)

    	End With



    	Dim adp As New SqlDataAdapter(cmd)

    	Dim sdr As New DataSet

    	adp.Fill(sdr, "lista")

    	cnn.Close()

    	Return CType(sdr, DataSet)

End Function

[quintelab 91]

Não entendi por que não consegue chamar seu campo da procedure. Sua procedure retorna esse campo?

 

Abraços...

[cintiadel 0]

Não entendi por que não consegue chamar seu campo da procedure. Sua procedure retorna esse campo?

 

Abraços...

 

 

entao esta na procedure, o erro estava na forma de atribuir o valor, eu substitui essa linha:

teste.DataField = oDs.Columns(9).ColumnName("Especialidade").ToString

por esta aqui:

teste.DataField = "Especialidade"

[quintelab 91]

Agora funcionou então?

 

Abraços...

[cintiadel 0]

Agora funcionou então?

 

Abraços...

 

 

Funcionou topico resolvido