Q ESTA ERRADO ?

LEANDRO.LUIZ 26/07/2005 17:43:40
#96107
E utinha feito de uma forma que acho que pra você não vai dar certo.....
Tente assim.:

Dim Selecionou as Boolean

no evento ListView1_ColumnClick você joga true na var selecionou
selecionou = true

Depois vc verifica.:
if Selecionou = False then
msgbox "Selecione uma linha antes"
end if
USUARIO.EXCLUIDOS 26/07/2005 17:49:39
#96109
n ta dando certo [S61]

eu queria q quando ele pressiona o botao eliminar, entao lembra-se q primeiro deve escolher a linha a eliminar...

fiz como voce disse, mas n ta dando certo

[[[ ]]]
LEANDRO.LUIZ 26/07/2005 18:04:06
#96112
então, no botão eliminar você coloca.:

if Selecionou = False then
msgbox "Selecione uma linha antes"
end if
USUARIO.EXCLUIDOS 26/07/2005 18:09:00
#96115
no botao eliminar tenho o seguinte:

--------------------------------------------------------------------------------------------------------------------
if Selecionou = False then
msgbox "Selecione uma linha antes"
end if
Dim total As Integer
If ListView1.ListItems.Count <> 0 Then
If ListView1.SelectedItem.Checked Then
x = MsgBox("Tem a certeza que deseja eliminar o produto ? ", vbYesNo)
If x = vbYes Then
Dim rs As New Recordset
rs.Open "DELETE FROM Produtos WHERE ID_Cliente = " & ListView1.ListItems(ListView1.SelectedItem.Index).Text & " AND Nome = '" & ListView1.SelectedItem.SubItems(1) & "' AND Estado = '" & ListView1.SelectedItem.SubItems(2) & "' AND Data = '" & ListView1.SelectedItem.SubItems(3) & "' AND Observ = '" & ListView1.SelectedItem.SubItems(4) & "'", conexao, adOpenDynamic, adLockOptimistic
rs.Open "SELECT Saldo FROM Conta WHERE ID_Cliente = " & ListView1.ListItems(ListView1.SelectedItem.Index).Text, conexao, adOpenDynamic, adLockOptimistic
total = rs.Fields("Saldo")
rs.Close
If ListView1.SelectedItem.SubItems(4) = "VENDIDO" Then
total = total - 40
txt_saldo.Text = total
rs.Open "UPDATE Conta SET Saldo = '" & txt_saldo.Text & "' WHERE ID_Cliente = " & ListView1.ListItems(ListView1.SelectedItem.Index).Text, conexao, adOpenDynamic, adLockOptimistic
End If
If ListView1.SelectedItem.SubItems(4) = "NÃO VENDIDO" Then
total = total + 40
txt_saldo.Text = total
rs.Open "UPDATE Conta SET Saldo = '" & txt_saldo.Text & "' WHERE ID_Cliente = " & ListView1.ListItems(ListView1.SelectedItem.Index).Text, conexao, adOpenDynamic, adLockOptimistic
End If
ListView1.ListItems.Remove ListView1.SelectedItem.Index
Else
Exit Sub
End If
Else
MsgBox "Seleccione a linha primeiro !!!", vbInformation
End If
End If

----------------------------------------------------------------------------------------------------------------------

mas ta complicado [S61]

[[[ ]]]
LEANDRO.LUIZ 26/07/2005 18:30:35
#96117
dessa forma q passou pra mim, não funcionou?? me add no msn...que tento te explicar...

leandroewandrea@hotmail.com
USUARIO.EXCLUIDOS 26/07/2005 18:33:03
#96118
ok...

ja o adicionei
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar