|
|
Postada em 06/06/2008 16:58 hs
Já estou seguindo essa linha de raciocinio... mas quando eu mudo o projeto e pesso para incluir... ele substitui o projeto da linha anterior, e adiciona uma linha nova sem projeto..hhahauhauh
Vamos ver no que dá!
Olha o que fiz e refiz e refiz...
Private Sub cmdIncLinha_Click()
Dim linhas_cont, i As Integer
With Grid
If linhas_cont = 1000 Then
'Ao chegar nas 1000 linhas não será mais inserido linhas.
Else
If cboMes.Text = Empty Then
MsgBox "Antes de incluir linhas, selecione o mês, em seguida escolha o ID da Demanda.", vbCritical, "Aviso" 'Caso o usuário não tenha escolhido o mês, ele não poderá inserir linhas.
Else
If .Rows = 1 Then
.Rows = 2
.TextMatrix(1, 1) = cboDemanda.Text
Else
For i = 1 To .Rows - 1
If .TextMatrix(i, 1) = cboDemanda.Text Then
MsgBox "Não é possível adicionar mais de um ID da Demanda por mês.", vbCritical, "Aviso"
Else
.Rows = .Rows + 1
.TextMatrix(i, 1) = cboDemanda.Text
End If
Next i
End If
End If
End If
End With
End Sub
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/06/2008 17:08 hs
tenta este código Private Sub cmdIncLinha_Click()
Dim linhas_cont, i As Integer
With Grid
If linhas_cont = 1000 Then
'Ao chegar nas 1000 linhas não será mais inserido linhas. Exit sub
End if
If cboMes.Text = Empty Then
MsgBox "Antes de incluir linhas, selecione o mês, em seguida escolha o ID da Demanda.", vbCritical, "Aviso" 'Caso o usuário não tenha escolhido o mês, ele não poderá inserir linhas.
Exit sub End if
If .Rows = 1 Then
.Rows = 2
.TextMatrix(1, 1) = cboDemanda.Text
End if For i = 1 To .Rows - 1
If .TextMatrix(i, 1) = cboDemanda.Text Then
MsgBox "Não é possível adicionar mais de um ID da Demanda por mês.", vbCritical, "Aviso" Exit sub
Else
.Rows = .Rows + 1
.TextMatrix(i, 1) = cboDemanda.Text
End If
Next i
End With
End Sub |
|
|
|
|
|
Postada em 06/06/2008 17:11 hs
Não funcionou! quando eu vou inserir o primeiro ID ele já acusa que existe um ID e adiciona ele assim msm... aí se eu continuo a adicionar, ele gera somente linhas em branco!
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 06/06/2008 17:15 hs
Private Sub cmdIncLinha_Click()
Dim linhas_cont, i As Integer
With Grid
If linhas_cont = 1000 Then
'Ao chegar nas 1000 linhas não será mais inserido linhas. Exit sub
End if
If cboMes.Text = Empty Then
MsgBox "Antes de incluir linhas, selecione o mês, em seguida escolha o ID da Demanda.", vbCritical, "Aviso" 'Caso o usuário não tenha escolhido o mês, ele não poderá inserir linhas.
Exit sub End if
If .Rows = 1 Then
.Rows = 2
.TextMatrix(1, 1) = cboDemanda.Text
else For i = 1 To .Rows - 1
If .TextMatrix(i, 1) = cboDemanda.Text Then
MsgBox "Não é possível adicionar mais de um ID da Demanda por mês.", vbCritical, "Aviso" Exit sub
Else
.Rows = .Rows + 1
.TextMatrix(i, 1) = cboDemanda.Text
End If
Next i
end if End With
End Sub tenta agora |
|
|
|
|
|
Postada em 06/06/2008 17:26 hs
Nesta pequena alteração, o 1º id é adicionado e é feito corretamente a comparação neste 1º ID, mas quando eu seleciono um 2º id ele substitui o 1º pelo 2º id e insere linhas em branco!
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 06/06/2008 17:37 hs
então estamos quase lá, agora tente assim Private Sub cmdIncLinha_Click()
Dim linhas_cont, i As Integer
With Grid
If linhas_cont = 1000 Then
'Ao chegar nas 1000 linhas não será mais inserido linhas. Exit sub
End if
If cboMes.Text = Empty Then
MsgBox "Antes de incluir linhas, selecione o mês, em seguida escolha o ID da Demanda.", vbCritical, "Aviso" 'Caso o usuário não tenha escolhido o mês, ele não poderá inserir linhas.
Exit sub End if
If .Rows = 1 Then
.Rows = 2
.TextMatrix(1, 1) = cboDemanda.Text
else For i = 1 To .Rows - 1
If .TextMatrix(i, 1) = cboDemanda.Text Then
MsgBox "Não é possível adicionar mais de um ID da Demanda por mês.", vbCritical, "Aviso" Exit sub
Else
.Rows = .Rows + 1 .TextMatrix(.Rows, 1) = cboDemanda.Text
End If
Next i
end if End With
End Sub |
|
|
|
|
