none
DropDownList has a SelectedValue which is invalid because it does not exist in the list of items RRS feed

  • Pergunta

  • No código abaixo eu seleciono um registro no Grid para carregar o formulário, então no SelectedIndexChanged no código abaixo eu carrego o ddlMunPac.Items.Insert(0, ""). No Access o registro deste campo está vazio. Algume tem alguma sugestão?

    Fazendo o BreakPoint aponta para a linha:ddlMunPac.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(6).Text)

    Private Sub cargaMunicipioPac() ddlMunPac.Items.Clear() retDATASET.ReadXml(Server.MapPath("output.xml")) ddlMunPac.DataSource = retDATASET.Tables("TBmun") ddlMunPac.DataTextField = ("MUNNOME") ddlMunPac.DataValueField = ("MUNCOD") ddlMunPac.DataBind() ddlMunPac.Items.Insert(0, "") ddlMunPac.SelectedIndex = 0 End Sub Protected Sub gvwVet_SelectedIndexChanged(sender As Object, e As EventArgs) Handles gvwVet.SelectedIndexChanged cargaMunicipioPac() cargaMunicipioProp() btnAlterarVet.Enabled = True btnExcluirVet.Enabled = True btnCancelarVet.Enabled = True btnInserirVet.Enabled = False lblCodVet.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(1).Text) txtCodSinan.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(2).Text) If gvwVet.SelectedRow.Cells(3).Text = "" Then rblSexoPac.ClearSelection() ElseIf gvwVet.SelectedRow.Cells(3).Text = "Masc" Then rblSexoPac.SelectedIndex = 0 ElseIf gvwVet.SelectedRow.Cells(3).Text = "Fem" Then rblSexoPac.SelectedIndex = 1 ElseIf gvwVet.SelectedRow.Cells(3).Text = "Ign" Then rblSexoPac.SelectedIndex = 2 End If txtDataNascPac.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(4).Text) ddlUFPac.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(5).Text) ddlMunPac.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(6).Text)



    • Editado Wilson Boris quinta-feira, 19 de julho de 2012 20:24 complementação descriçao
    quinta-feira, 19 de julho de 2012 20:21

Todas as Respostas

  • No código abaixo eu seleciono um registro no Grid para carregar o formulário, então no SelectedIndexChanged no código abaixo eu carrego o ddlMunPac.Items.Insert(0, ""). No Access o registro deste campo está vazio. Algume tem alguma sugestão?

    Fazendo o BreakPoint aponta para a linha:ddlMunPac.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(6).Text)

    Private Sub cargaMunicipioPac() ddlMunPac.Items.Clear() retDATASET.ReadXml(Server.MapPath("output.xml")) ddlMunPac.DataSource = retDATASET.Tables("TBmun") ddlMunPac.DataTextField = ("MUNNOME") ddlMunPac.DataValueField = ("MUNCOD") ddlMunPac.DataBind() ddlMunPac.Items.Insert(0, "") ddlMunPac.SelectedIndex = 0 End Sub Protected Sub gvwVet_SelectedIndexChanged(sender As Object, e As EventArgs) Handles gvwVet.SelectedIndexChanged cargaMunicipioPac() cargaMunicipioProp() btnAlterarVet.Enabled = True btnExcluirVet.Enabled = True btnCancelarVet.Enabled = True btnInserirVet.Enabled = False lblCodVet.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(1).Text) txtCodSinan.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(2).Text) If gvwVet.SelectedRow.Cells(3).Text = "" Then rblSexoPac.ClearSelection() ElseIf gvwVet.SelectedRow.Cells(3).Text = "Masc" Then rblSexoPac.SelectedIndex = 0 ElseIf gvwVet.SelectedRow.Cells(3).Text = "Fem" Then rblSexoPac.SelectedIndex = 1 ElseIf gvwVet.SelectedRow.Cells(3).Text = "Ign" Then rblSexoPac.SelectedIndex = 2 End If txtDataNascPac.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(4).Text) ddlUFPac.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(5).Text) ddlMunPac.Text = HttpUtility.HtmlDecode(gvwVet.SelectedRow.Cells(6).Text)




    Dim Dadapter4 As OleDbDataAdapter = New OleDbDataAdapter
            Dadapter4.SelectCommand = New OleDbCommand("SELECT MUNCOD,MUNNOME,UFCOD FROM  tbCadmun ORDER BY MUNNOME asc", New OleDbConnection(My.Settings.SIConecte))
            Dadapter4.Fill(DSet, "TBmun")

    quinta-feira, 19 de julho de 2012 21:27