DUVIDAS COM COMBO...
Pessoall
é o seguinte.
Estou fazendo um formulário de cadastro de funcionários.
Tenho um combo que carrega de um dataset os dados referente ao cargo do funcionário no evento load do form, assim:
dsCargos = Busca.RetornaDataSet([Ô]SELECT * FROM cargos[Ô])
[ô]define o estilo da combobox
cmbCargo.DropDownStyle = ComboBoxStyle.DropDownList
cmbCargo.DataSource = Nothing
cmbCargo.Items.Clear()
With cmbCargo
.DataSource = dsCargos.Tables(0)
.DisplayMember = [Ô]desccargo[Ô]
.ValueMember = [Ô]idcargo[Ô]
.SelectedIndex = 0
End With
Agora na alteração, gostaria que o formulário fosse carregado com os dados do dataset de cargo, porém viesse com a opção que foi selecionada no momento da inclusão, porquê um funcionário poderia mudar de cargo.
As tabelas funcionários/cargos estão relacionadas pelo campo idcargo.
Gostaria de fazer uma função genérica para colocar em um lugar para ser reaproveitada todas as vezes que acontecer casos assim, e essa função passaria a servir para todas as tabelas relacionadas que precisasem de seleções via combobox..
Como faço isso ?
é o seguinte.
Estou fazendo um formulário de cadastro de funcionários.
Tenho um combo que carrega de um dataset os dados referente ao cargo do funcionário no evento load do form, assim:
dsCargos = Busca.RetornaDataSet([Ô]SELECT * FROM cargos[Ô])
[ô]define o estilo da combobox
cmbCargo.DropDownStyle = ComboBoxStyle.DropDownList
cmbCargo.DataSource = Nothing
cmbCargo.Items.Clear()
With cmbCargo
.DataSource = dsCargos.Tables(0)
.DisplayMember = [Ô]desccargo[Ô]
.ValueMember = [Ô]idcargo[Ô]
.SelectedIndex = 0
End With
Agora na alteração, gostaria que o formulário fosse carregado com os dados do dataset de cargo, porém viesse com a opção que foi selecionada no momento da inclusão, porquê um funcionário poderia mudar de cargo.
As tabelas funcionários/cargos estão relacionadas pelo campo idcargo.
Gostaria de fazer uma função genérica para colocar em um lugar para ser reaproveitada todas as vezes que acontecer casos assim, e essa função passaria a servir para todas as tabelas relacionadas que precisasem de seleções via combobox..
Como faço isso ?
Você vai ter que trabalhar em cima da propriedade SelectedIndex ou SelectedItem
cmbCargo.SelectedIndex = 1
Citação::
Você vai ter que trabalhar em cima da propriedade SelectedIndex ou SelectedItem
cmbCargo.SelectedIndex = 1
Obrigado Amigo
Eu resolvi fazendo uma função assim:
[ô][ô][ô] <summary>
[ô][ô][ô] Esta função tem por objetivo preencher um ComboBox dinamicamente
[ô][ô][ô] a partir de um DataReader
[ô][ô][ô] </summary>
[ô][ô][ô]
[ô][ô][ô] <param name=[Ô]cmb[Ô]>
[ô][ô][ô] Combo a ser preenchido
[ô][ô][ô] </param>
[ô][ô][ô]
[ô][ô][ô] <param name=[Ô]sSQL[Ô]>
[ô][ô][ô] Instrução sql a ser processada
[ô][ô][ô] </param>
[ô][ô][ô]
[ô][ô][ô] <param name=[Ô]sid[Ô]>
[ô][ô][ô] Coluna a ser utilizada na propriedade ValueMember do Combo
[ô][ô][ô]</param>
[ô][ô][ô]
[ô][ô][ô] <param name=[Ô]sdisp[Ô]>
[ô][ô][ô] Coluna a ser utilizada na proprieda DisplayMember do Combo
[ô][ô][ô] </param>
[ô][ô][ô]
[ô][ô][ô] <remarks>
[ô][ô][ô] </remarks>
Public Sub ComboFill(ByVal cmb As ComboBox, ByVal sSQL As String, ByVal sid As String, ByVal sdisp As String)
Dim bsCombo As New BindingSource
Dim drCombo As DbDataReader
Dim Busca As New clsDados
Try
[ô]Define o estilo do ComboBox
cmb.DropDownStyle = ComboBoxStyle.DropDownList
cmb.DataSource = Nothing
cmb.Items.Clear()
drCombo = Busca.RetornaDataReader(sSQL)
bsCombo.DataSource = drCombo
With cmb
.DataSource = bsCombo
.DisplayMember = sdisp
.ValueMember = sid
.SelectedIndex = 0
End With
drCombo.Close()
Catch ex As Exception
Throw ex
End Try
End Sub
e depois no formulário eu utlizei a propriedade .selectedvalue
Mesmo assim obrigado...
Tópico encerrado , respostas não são mais permitidas