cintiadel 0 Denunciar post Postado Novembro 3, 2010 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 Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 5, 2010 Não entendi por que não consegue chamar seu campo da procedure. Sua procedure retorna esse campo? Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 5, 2010 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" Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 8, 2010 Agora funcionou então? Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 11, 2010 Agora funcionou então? Abraços... Funcionou topico resolvido Compartilhar este post Link para o post Compartilhar em outros sites