Radio + comboBox preenchido condicionalmente em formulario de varias instancias
07/12/2011
0
Olá pessoal, depois de muito tentar queimando meu neurônios resolvi pedir ajuda. Meu problema é o seguinte: tenho um form que precisa (de acordo com a necessidade do cliente) ser aberto uma ou mais vezes(para envio de arquivos - Programa para grafica) até ai tudo bem:
o prolema é que nesse form tem dois combo que recuperam dados do BD (em MYSQL, via dataset criado via programação) de acordo com a escolha (atraves de 3 radios) dos materias que ele deseja para o arquivo que vai enviar. quando retiro o codigo que gera um novo form a cada click tudo funciona blz, mas quando trabalho com varias instancias o form abre e tudo más a camada de dados não é exposta no combos.
Alguém ai poderia me dar uma luz de como devo proceder?
Só para esclarecer: Ao usuario clicar no radio que contem a opção desejada este chama uma função em uma class que preenche o dataset e retorna os valores para o combo com with como abaixo:
se alguém puder dar uma luz ai agradeço. Desculpem a carta. Era pra ficar mais explicado. vlw
codigo que utilizo para abrir varias instancias do form dim novoF as new envia() envia.mdiParent = me envia.show()
o prolema é que nesse form tem dois combo que recuperam dados do BD (em MYSQL, via dataset criado via programação) de acordo com a escolha (atraves de 3 radios) dos materias que ele deseja para o arquivo que vai enviar. quando retiro o codigo que gera um novo form a cada click tudo funciona blz, mas quando trabalho com varias instancias o form abre e tudo más a camada de dados não é exposta no combos.
Alguém ai poderia me dar uma luz de como devo proceder?
Só para esclarecer: Ao usuario clicar no radio que contem a opção desejada este chama uma função em uma class que preenche o dataset e retorna os valores para o combo com with como abaixo:
chama a função Private Sub rdoGF_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoGF.CheckedChanged id_tipo = 4 tipo = rdoGF.Text lsq.getMaterial(id_tipo) End Sub --------------------------------------- função na class Shared Function getMaterial(ByVal id_tipo As String) As String Dim strSql As String = select material, id_material from substratos WHERE id_tipo= + id_tipo + GROUP BY material Dim cn As New MySqlConnection Dim ds As New DataSet cn.ConnectionString = linha Try cn.Open() Catch ex As MySqlException MsgBox(Erro ao conectar com o servidor!, Verifique sua conexao com a internet) End Try Dim ad As New MySqlDataAdapter(strSql, cn) ad.Fill(ds, substratos) Dim dv = New DataView(ds.Tables(substratos)) With envia.cboSubs .DataSource = ds.Tables(substratos) .DisplayMember = material .ValueMember = id_material End With cn.Close() cn.Dispose() Return True End Function
se alguém puder dar uma luz ai agradeço. Desculpem a carta. Era pra ficar mais explicado. vlw
[code]
Celio Cantalice
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)