|
|
Postada em 06/06/2008 13:09 hs
Pessoal... um HELP por favor...
Estou desenvolvendo um programa onde tenho recebido muitas ajudas... agora a questã é a seguinte...
Estou tentando criar uma rotinha que o usuário apos escolher o projeto que ele está trabalhando em uma combo ele deve clicar no botão para adicionar o projeto(demanda) na coluna ID_DEMANDA do Grid, só que é o seguinte... caso o cara resolva escolher o mesmo projeto e adicionar no grid de novo, eu quero que ele seja impedido de fazer essa adição, pois ele já possui aquele projeto no grid... ele só poderá adicionar projetos NÃO repetidos!
Estou tentando fazer essa rotina no código para impedir futuros tratamentos na base de dados!
O código que eu montei é esse....
Private Sub cmdIncLinha_Click()
Dim i, segura_id As Integer
linhas = linhas + 1
If linhas = 1000 Then
Else
If cboMes.Text = Clear Then
MsgBox ("Escolha o mês.")
Else
segura_id = cboDemanda.Text
If Grid.Rows = 1 Then
With Grid
.Rows = linhas + 1
.TextMatrix(linhas, 1) = cboDemanda.Text
End With
Else
For i = 2 To Grid.Rows
If segura_id = Grid.TextMatrix(linhas, 1) Then
MsgBox ("teste")
Else
With Grid
.Rows = linhas + 1
.TextMatrix(linhas, 1) = cboDemanda.Text
qtde_linha = qtde_linha + 1
End With
End If
Next i
End If
End If
End If
End Sub
Um grande abraço a todos!
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
|
|
|
|
|
|
Postada em 06/06/2008 13:54 hs
fjralberto
O que você pode fazer é, como ele seleciona o registro de uma combo, no momento que ele selecionar e apertar o botão incluir, esse projeto é excluído da sua combo, assim não teria como ele seleciona-la novamente
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
|
Postada em 06/06/2008 14:09 hs
Então... mas a idéia não é essa... pq ele pode usar os nomes dos projetos em outros meses... os projetos devem existir... mas o que ele não pode fazer é incluir novamente algo anteriormente já incluso!
Obrigado pela sujestão Álvaro!
Abraços!
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
|
|
Treze
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 06/06/2008 16:08 hs
Alberto é o seguinte primeiro trate os campos em branco como Empty ou "" e não da forma que está fazendo cboMes.Text = Clear Bom o que você deve fazer é compara pelomenos a coluna ID_DEMANDA com o que vai ser incluido, e se for encontrado ocorrência igual sair da função com um exit sub. Faça uma busca por localizar string em flexgrid, não permitir duplicidades na flexgrid ou algo parecido aqui não possuo nada para colocar como exemplo, mas é basicamente isto. |
|
|
|
|
|
Postada em 06/06/2008 16:37 hs
Certo... na verdade... é isso o que eu estou tentando fazer (comparar as linhas da coluna ID_DEMANDA)... mas está complicado!
rs
Abraços!
Assim que eu consegui fazer eu posto para o pessoal tirar dúvidas!
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/06/2008 16:45 hs
Bom veja um exemplo prático For i = 1 To MsFlexGrid.Rows - 1
' 1 indica a coluna coloque o numero da coluna aqual se comparar If MsFlexGrid.TextMatrix(i,1) = cboDemanda.text
Msgbox"Demanda já foi lançada" Exit sub End If
Next i
|
|
|
|
