LUIZ_
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 13/05/2011 00:29 hs
Galera
Estou com o seguinte problema, estou fazendo uma manutençao em uma parte do programa onde são feitas as criticas de tela, ou seja verifica se todos os campos estao preenchidos antes de executar alguma gravação, mas existe um campo onde são carregados opçoes de inativacao dentro de um combo mas nao estao aparecendo, entao fiz esta rotina abaixo para tentar resolver:
If Snp.Fields("id_inativo").Value = "S" Then
If IsNull(Snp.Fields("ds_motivo").Value) Then
vl_motivo_inativacao = ""
Else
vl_motivo_inativacao = "Motivo : " & IIf(IsNull(Snp.Fields("ds_motivo").Value), "", Snp.Fields("ds_motivo").Value)
End If
Else
vl_motivo_inativacao = ""
Cbo_Motivo_Inativacao.Text = vl_motivo_inativacao
End If
mas o problema que agora nao estou sabendo como carregar a informação da variavel vl_motivo_inativacao no combo, alguem pode me ajudar ?
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/05/2011 02:45 hs
If Snp.Fields("id_inativo").Value = "S" Then
If IsNull(Snp.Fields("ds_motivo").Value) Then
vl_motivo_inativacao = ""
Else
vl_motivo_inativacao = "Motivo : " & IIf(IsNull(Snp.Fields("ds_motivo").Value), "", Snp.Fields("ds_motivo").Value)
End If
Else
vl_motivo_inativacao = ""
Cbo_Motivo_Inativacao.Text = vl_motivo_inativacao
' carregue assim
Cbo_Motivo_Inativacao.AddItem vl_motivo_inativacao
End If
vlu//
|
|
|
|
LUIZ_
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/05/2011 09:09 hs
Ola LCRamos
Fiz nova tentativa e o problema persiste, pelo que estou vendo aqui o combo ja esta com as informaçoes da tabela carregadas, mas nao esta exibindo a informacao, o combo esta como se nao tivesse nada selecionado. Como faço para corrigir isso ?
|
|
|
|
Almir
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/05/2011 12:56 hs
If Snp.Fields("id_inativo").Value = "S" Then
If IsNull(Snp.Fields("ds_motivo").Value) Then
vl_motivo_inativacao = ""
Else
vl_motivo_inativacao = "Motivo : " & IIf(IsNull(Snp.Fields("ds_motivo").Value), "", Snp.Fields("ds_motivo").Value)
End If
Else
vl_motivo_inativacao = ""
Cbo_Motivo_Inativacao.Text = vl_motivo_inativacao
' carregue assim Cbo_Motivo_Inativacao.text = vl_motivo_inativacao
Cbo_Motivo_Inativacao.AddItem vl_motivo_inativacao
Tente deste jeito.
End If
|
|
|
|
|
|
Postada em 13/05/2011 17:55 hs
If Snp.Fields("id_inativo").Value = "S" Then
If IsNull(Snp.Fields("ds_motivo").Value) Then
vl_motivo_inativacao = ""
Else
vl_motivo_inativacao = "Motivo : " & IIf(IsNull(Snp.Fields("id_motivo").Value), "", Snp.Fields("ds_motivo").Value)
Cbo_Motivo_Inativacao.additem= vl_motivo_inativacao
End If
Else
Cbo_Motivo_Inativacao.additem= Snp.Fields("ds_motivo").Value
End if
|
|
|
|
