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:
Esta es la funcion en la cual estoy confundio y no encuentro una logica para poder enviarle el valor. 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
Si tienen algo mejor se los agradecerias
Código:
La verdad que apreciaria una ayuda con esto se los agradeceriaPublic 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
Cabral.