Bom dia a todos, preciso da ajuda de vocês para verificar uma rotina que fiz que não está funcionando, ou seja, quando clico no botão para remover o item do MSFlexGrid o item é excluído da listagem e a quantidade do produto que estava na listagem "NÃO" retorna para o estoque.
Private Sub cmdRemoverItem_Click()
Dim selectedRow As Integer
Dim rs2 As New ADODB.Recordset
Dim total As Long
Dim i As Long
selectedRow = MSFlexGrid.Row
If MSFlexGrid.Rows > 2 Then
For i = 1 To MSFlexGrid1.Rows - 2 Step 1
rs2.Open "Select * From Produtos Where CodPro = '" & Val(MSFlexGrid1.TextMatrix(i, 2)) & "'", con, 1, 2
If rs2.EOF <> True And rs2.BOF <> True Then
total = Val(rs2("QuantEstoque")) + Val(MSFlexGrid1.TextMatrix(i, 6))
rs2("QuantEstoque") = total
rs2.UpdateBatch adAffectCurrent
End If
rs2.Close
Next i
End If
If MSFlexGrid1.Rows > 2 Then
MSflexGrid1.RemoveItem (MSFlexGrid1.Row)
Else
MSFlexGrid1.RemoveItem (1)
End Id
End Sub
