Buenas tardes amigos del foros del web:
Soy nuevo en el forum y tambien estoy aprendiendo a programar en visual basic 6 este es mi problema. tengo un arreglo de 23 label los cuales se llenan con articulos desde una base de datos al dar click en cada uno estos los agregos al Listview y cuando estan agregados esto se graban en tabla de la base datos. Yo puedo cargar nuevamente el listview con los datos ya grabados pero lo que ando buscando es que los datos ya grabados en el listview que estan cargados los usuarios no lo puedan borrar pero si pueden agregar nuevos.
ejemplo:
Datos Cargados nuevamente.
Cant. Descripcion Precio
1 Jugo de naranja $30.00
2 Sandwisch $25.00
Si el usuario quiere borrar el sandwisch que me despliegue un mensaje: "No puede eliminarlo ya esta ordenado", el usuario si puede agregar un sandwish nuevo en este caso serian "3" en caso de que quiera eliminarlo si puede ya que no esta ordenado. esto lo quiero aplicar para lo demas articulos. Este es mi codigo para borrar.
Código:
Private Sub cmdDelete_Click()
Dim curUnitPrice As Currency
Dim lngIndex As Long
Dim lngQty As Long
Dim k As Boolean
With lvw
If Not (.SelectedItem Is Nothing) Then
lngIndex = Mid(.SelectedItem.Key, 2)
lngQty = Val(.SelectedItem.Text)
If S_Status = True Then
If CheckModify(lngQty, .SelectedItem.SubItems(1)) = False Then
MsgBox "No puede eliminarlo ya esta ordenado"
Exit Sub
'Else
' it will continue deleting
End If
End If
If lngQty > 1 Then
lngQty = lngQty - 1
curUnitPrice = Val(lblItem(lngIndex).Tag)
.SelectedItem.Text = lngQty
.SelectedItem.SubItems(3) = Format(lngQty * curUnitPrice, "Currency")
Else
lblItem(lngIndex).ForeColor = vbBlack
.ListItems.Remove .SelectedItem.Index
End If
End If
End With
ShowTotal
Esta es la funcion en la cual estoy confundio y no encuentro una logica para poder enviarle el valor.
Si tienen algo mejor se los agradecerias
Código:
Public Function CheckModify(ByRef qTy As Long, ByRef Iitem As String) As Boolean
If qTy > Temp Then
CheckModify = True
ElseIf qTy = Temp Then
CheckModify = False
End If
End Function
La verdad que apreciaria una ayuda con esto se los agradeceria
Cabral.