em ASP.Net
Possuo um DropDownList, que é preenchido dinamicamente com os servicos. E um outro script que recupera os dados do AUTONOMO, inclusive o código do serviço. Eu atribuo esses dados recuperados aos campos do formulário, porém não consigo Selecionar no DropDownList o serviço que estava gravado para aquele autonomo. Alguém pode me ajudar?
Sub Page_Load(obj as object, e as eventargs) If Not Page.IsPostBack'página carregada pela primeira vez cod_local.text = Session("cod_local")'atribui o codigo do local recServico() If Request.QueryString("cod") <> "" 'a página estará editando um autonomo cod_autonomo.text = Request.QueryString("cod") lbTitulo.text = "Atualização de Autônomo" btAtualizaAutonomo.visible = true recAutonomo()'recupera os dados do autonomo Else'modo de cadastro de autonomo lbTitulo.text = "Cadastro de Autônomo" btCadastroAutonomo.visible = true End if End if End Sub Sub recServico() Try 'recuperando os servicos Dim sql as new SqlDataAdapter("SELECT cod_servico," & _ " descricao" & _ " FROM servico" & _ " WHERE cod_local="& Session("cod_local") & _ " ORDER BY descricao", objConn) objconn.Open()'abre conexao 'preenchendo o dropdownlist Dim dsServico as New DataSet() sql.Fill(dsServico,"Servico") cod_servico.DataTextField = "descricao" cod_servico.DataValueField = "cod_servico" cod_servico.DataSource = dsServico.Tables("servico").DefaultView cod_servico.DataBind() objConn.Close() Catch ex As Exception objConn.Close() Finally objConn.Close() End Try End Sub Sub recAutonomo() 'recupera os dados do autonomo no modo de edição Dim strAutonomo as string = "SELECT cod_servico, " & _ "nome, " & _ "cpf, " & _ "identidade, " & _ "orgao_id, " & _ "inss, " & _ "desc1 " & _ "FROM autonomo " & _ "WHERE cod_autonomo = " & Request.QueryString("cod") & _ " AND cod_local = " & Session("cod_local") Try 'criando comando Dim cmdAutonomo as New SqlCommand(strAutonomo, objconn) Dim drAutonomo as SqlDataReader'cria o datareader objConn.Open()'abrindo conexao drAutonomo = cmdAutonomo.ExecuteReader'executando comando 'atribuindo valores aos campos While drAutonomo.Read() teste.text = drAutonomo.GetInt32(0) cod_servico.SelectedItem.Value = CInt(drAutonomo.GetInt32(0)) nome_autonomo.text = drAutonomo.GetString(1) cpf_autonomo.text = drAutonomo.GetString(2) id_autonomo.text = drAutonomo.GetString(3) orgao_id_autonomo.text = drAutonomo.GetString(4) inss_autonomo.text = drAutonomo.GetString(5) desc1.text = drAutonomo.GetString(6) End While objConn.Close()'fechando conexão Catch ex as Exception objConn.Close()'fecha conexao Finally objConn.Close()'fecha conexao End Try End Sub<asp:dropdownlist ID="cod_servico" DataTextField="descricao" DataValueField="cod_servico" CssClass="formText" runat="server"/>Discussão (7)
Carregando comentários...