CONDI?ÕES
Pessoal DataGridview ele lista todos os registro do banco, mas tem um porem os registro que estar com o statu [Ô]fechado[Ô] quando clicar nele não pode prosseguir.
Private Sub NegaR()
For x = 0 To dgvPreVendas.RowCount - 1
If dgvPreVendas.Rows(x).Cells([Ô]STATUS[Ô]).Value = [Ô]Fechada[Ô] Then
MsgBox([Ô]Nãpo será possivel acessar este registro[Ô], MsgBoxStyle.Information, [Ô]Igas Contas[Ô])
ElseIf dgvPreVendas.Rows(x).Cells([Ô]STATUS[Ô]).Value = [Ô]Aguardando[Ô] Then
MsgBox([Ô]Acessivel este registro[Ô], MsgBoxStyle.Information, [Ô]Igas Contas[Ô])
End If
Next
End Sub
For x = 0 To dgvPreVendas.RowCount - 1
If dgvPreVendas.Rows(x).Cells([Ô]STATUS[Ô]).Value = [Ô]Fechada[Ô] Then
MsgBox([Ô]Não será possivel acessar este registro[Ô], MsgBoxStyle.Information, [Ô]Igas Contas[Ô])
Exit For
ElseIf dgvPreVendas.Rows(x).Cells([Ô]STATUS[Ô]).Value = [Ô]Aguardando[Ô] Then
MsgBox([Ô]Acessivel este registro[Ô], MsgBoxStyle.Information, [Ô]Igas Contas[Ô])
End If
Next
End Sub
Seria isso?
Deste Jeito não funcionar
No evento do clique você deve tratar isso para o registro clicado e não um loop para todos.
Como assim não entendie
Você quer clicar em uma item da DataGridView e verificar se é possÃvel abrir o registro?
Do jeito que o Oráculo respondeu.
Acho que da certo.
Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
[ô] If DataGridView1.CurrentRow.Cells(2).Value = [Ô]POSITIVA[Ô] Then
If DataGridView1.CurrentRow.Cells([Ô]Tipo[Ô]).Value = [Ô]POSITIVA[Ô] Then
MsgBox([Ô]Acessivel este registro[Ô], MsgBoxStyle.Information, [Ô]Igas Contas[Ô])
Else
MsgBox([Ô]Não será possivel acessar este registro[Ô], MsgBoxStyle.Information, [Ô]Igas Contas[Ô])
End If
Acho que da certo.
Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
[ô] If DataGridView1.CurrentRow.Cells(2).Value = [Ô]POSITIVA[Ô] Then
If DataGridView1.CurrentRow.Cells([Ô]Tipo[Ô]).Value = [Ô]POSITIVA[Ô] Then
MsgBox([Ô]Acessivel este registro[Ô], MsgBoxStyle.Information, [Ô]Igas Contas[Ô])
Else
MsgBox([Ô]Não será possivel acessar este registro[Ô], MsgBoxStyle.Information, [Ô]Igas Contas[Ô])
End If
Pessoal muito obrigado pela ajuda. Problema resolvido
Tópico encerrado , respostas não são mais permitidas