none
Menu Strip e Combobox RRS feed

  • Pergunta

  • Olá, eu coloquei uma combobox no menu strip, consegui o código para ela popular usando uma tabela, mas gostaria de quando eu selecionasse um registro ela atualizasse as texbox, do formulário.

      (Este é a configuração da combobox)

    With SelectCliente.ComboBox
                .BindingContext = Me.BindingContext
                .DataSource = Me.DataSet.Tabela_Clientes
                .DisplayMember = "Nome_Cliente"
                .ValueMember = "ID_Cliente"
                .SelectedIndex = 0
            End With

    (Esta parte funciona, agora falta fazer ela atualizar as textbox, conforme o registro que eu seleciono)

    Aguardo, 

    Obrigado!

    terça-feira, 29 de março de 2016 11:35

Respostas

  • Bom dia Lucky-RS,

    Public Event SelectedIndexChanged As EventHandler

    <%@ Page Language="VB" AutoEventWireup="True" %>
    <%@ Import Namespace="System.Data" %>
    
     <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
        "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml" >
     <script language="vb" runat="server">
    
        Function CreateDataSource() As ICollection
            Dim dt As New DataTable()
            Dim dr As DataRow
    
            dt.Columns.Add(New DataColumn("IntegerValue", GetType(Int32)))
            dt.Columns.Add(New DataColumn("StringValue", GetType(String)))
            dt.Columns.Add(New DataColumn("DateTimeValue", GetType(DateTime)))
            dt.Columns.Add(New DataColumn("BoolValue", GetType(Boolean)))
            dt.Columns.Add(New DataColumn("CurrencyValue", GetType(Double)))
    
            Dim i As Integer
            For i = 0 To 8
                dr = dt.NewRow()
    
                dr(0) = i
                dr(1) = "Item " + i.ToString()
                dr(2) = DateTime.Now
                If (i Mod 2) <> 0 Then
                    dr(3) = True
                Else
                    dr(3) = False
                End If
                dr(4) = 1.23 *(i + 1)
    
                dt.Rows.Add(dr)
            Next i
    
            Dim dv As New DataView(dt)
            Return dv
        End Function
    
        Sub Page_Load(sender As Object, e As EventArgs)
            If Not IsPostBack Then
                RadioButtonList1.DataSource = CreateDataSource()
                RadioButtonList1.DataTextField = "StringValue"
                RadioButtonList1.DataValueField = "CurrencyValue"
                RadioButtonList1.DataBind()
            End If
        End Sub
    
        Sub Index_Changed(sender As Object, e As EventArgs)        
            Label1.Text = "You selected " & RadioButtonList1.SelectedItem.Text & _
                " with a value of : " & RadioButtonList1.SelectedItem.Value & "."
        End Sub
    
     </script>
    
     <head runat="server">
        <title>ASP.NET Example</title>
    </head>
    <body>
    
        <form id="form1" runat="server">
    
           <asp:RadioButtonList id="RadioButtonList1" 
                OnSelectedIndexChanged="Index_Changed"
                AutoPostBack="true"
                runat="server"/>
    
           <br />
    
           <asp:Label id="Label1" runat="server"/>
    
        </form>
    
     </body>
     </html>

    Mais informações: ListControl.SelectedIndexChanged Event


    Att., Roberto Alves

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Marcado como Resposta Marcos SJ terça-feira, 29 de março de 2016 13:34
    terça-feira, 29 de março de 2016 13:06