Combobox
Pergunta
Respostas
Todas as Respostas
-
Tô montano um sistema de cadastro de Empresa. nele tem um form para cadastrar e editar as empresas.
no form de editar a empresa , coloquei um combobox chamado Cmb_Filtro para a pessoa escolher como quer pesquisar a Empresa (Razão Social , Nome Fantasia) e do lado tem dois combobox(Cmb_RazaoSocial,Cmb_NomeFantasia) que ficam visível e ativo de acordo com a escolha do filtro. Se a pessoa escolher no filtro pesquisa por Razão social , ele torna visível e permite a pessoa escolher A Razão Social que quer editar , e chama a funcão carrega Razão Social , e nessa horas que a função não mostra a lista de das razões social que tem no meu banco de dados , e quando carrega não consigo atualizar o Cmb_RazaoSocial depois que eu faço alguma alteração nos textbox q é preenchido .
Private Sub CarregarRazaoEmpresa()
Cmb_NomeFantasia.DataSource = Nothing
Using con As MySqlConnection = Conectar()
Try
con.Open()
Dim sql As String = "SELECT * FROM empresa"
Dim cmd As MySqlCommand = New MySqlCommand(sql, con)
Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
Cmb_RazaoSocial.DisplayMember = "razao_social"
Cmb_RazaoSocial.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub
Private Sub CarregarFantasiaEmpresa()
Cmb_NomeFantasia.DataSource = Nothing
Cmb_NomeFantasia.ResetText()
Using con As MySqlConnection = Conectar()
Try
con.Open()
Dim sql As String = "SELECT * FROM empresa"
Dim cmd As MySqlCommand = New MySqlCommand(sql, con)
Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
Cmb_NomeFantasia.DisplayMember = "nome_fantasia"
Cmb_NomeFantasia.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub If Cmb_Filtrar.Text = "Razão Social" Then
CarregarRazaoEmpresa()
LimparTxtEmpresa()
RemoverCorEmpresa()
Cmb_RazaoSocial.Enabled = True
Cmb_RazaoSocial.Visible = True
Cmb_NomeFantasia.Enabled = False
Cmb_NomeFantasia.Visible = False
End If
If Cmb_Filtrar.Text = "Nome Fantasia" Then
CarregarFantasiaEmpresa()
LimparTxtEmpresa()
RemoverCorEmpresa()
Cmb_RazaoSocial.Enabled = False
Cmb_RazaoSocial.Visible = False
Cmb_NomeFantasia.Enabled = True
Cmb_NomeFantasia.Visible = True
End IfConsegue Entender ?
