ERRO AO EXCLUIR MSFLEXGRID

USUARIO.EXCLUIDOS 07/09/2006 22:01:47
#170083
ai pessoal...
utilizo o seguinte codigo...

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
 
If MSFlexGrid1.Row = MSFlexGrid1.rows - 1 Then
    TotalVenda
    Else
    If MsgBox("Confirma a exclusão desta linha ? ", vbYesNo) = vbYes Then
        MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
        TotalVenda
    End If
    End If
End Sub


ele nao aceita excluir a ultima linha certo??
mas como fazer com que essa linha possa ser excluida tambem?
pois ja tentei, mas se deletar todas as linha da erro.. como fazer?? valew
USUARIO.EXCLUIDOS 07/09/2006 22:17:44
#170086
??????
HUGOSSOUZA 07/09/2006 22:41:25
#170088
eu sei que não é a maneira mais correta mas tenta assim:


If MSFlexGrid1.Row = 0 Then Exit Sub

If MsgBox("Confirma a exclusão desta linha ? ", vbYesNo) = vbYes Then
    If MSFlexGrid1.Rows = 2 Then ' se o grid só tiver 2 linhas a de cabeçalho e a umltima com informações ele adiciona mais 1 pra pode excluir a selecionada
        MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
    End If
    MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
    TotalVenda
End If



se eu achar uma forma melhor eu posto depois.
flws
MARCOSAV 07/09/2006 22:57:27
#170095 Resposta escolhida
Deixe (nas propriedades) o Flex com Rows = 1... Depois em (Custom), na guia general, deixe Fixed Row = 0. Coloque este código:

Option Explicit

[c]Private Sub Form_Load() tà' colocando assim, pq não tenho dados prá popular, ok ??
MSFlexGrid1.AddItem "Marcos"
MSFlexGrid1.AddItem "João"
MSFlexGrid1.AddItem "Maria"
MSFlexGrid1.AddItem "Ana"
End Sub


Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
  'Caso não existam itens a serem excluídos...
    If MSFlexGrid1.Row = 0 Then
        MsgBox "Não há itens a excluir.", vbCritical
        Exit Sub
    End If
'----------------------------------------------------------
    If MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 Then
   ' TotalVenda  ' não sei o q tem aqui, por isso comentei
    End If
        If MsgBox("Confirma a exclusão desta linha ? ", vbYesNo) = vbYes Then
        MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
        End If
End Sub


ou isso ou adicione mais uma linha com altura = 0 (ela não será excluída mas ficará invisível)...

Fiz isso e excluí todas as linhas...
Dá uma olhada aí, vlw ???

Abraço
T+
RENATOBELETTI 12/09/2006 12:22:44
#170881
tende dar um MSFlexGrid1.Clear
Tópico encerrado , respostas não são mais permitidas
Voltar