Mensajes

Hola.

Te doy mi humilde opinión no sé cómo manejes los datos o como los muestres en tus form estoy haciendo algo parecido como manejo de inventario facturación y asistencia ect..

Y la forma en que lo hago yo es mostrar los datos de un pedido en un listview es decir todos los que se hicieron en ese pedido y con un checkbox manejar cual se me han entregado y cuales no, y por medio de ese checkbox en el listview hago la actualización en la BD y cuando se vuelve a buscar ese pedido solo mostrara los que no se han entregado, ya no se mostraran los que ya se entregaron, espero darme a entender.

En caso que lo hagas algo si te recomendaría un DataGridView te da mucha más facilidad y comodidad de manejar datos claro depende de gustos : ) y de apariencia.

No trabajo en C# pero puede que te sirva la idea.

Saludos.

Hola como estan.

Despues de casi un dia lo logre y paso a compartir la solucion tan facil.

Con esto pueden hacer cualquier cosa con el checkbox y la manipulacion de una celda en especial.
Desde hacer una consulta a una BD por medio de un dato especifico del listView o varios datos del listview etc..

Código (vbnet) [Seleccionar] Expandir


Private Sub lvRegDePedido_ItemCheckedChanged(sender As Object, e As ListViewItemEventArgs) Handles lvRegDePedido.ItemCheckedChanged
       If e.Item.CheckState = CheckState.Checked Then
           Dim entregado As String = "Entregado"
           e.Item(3) = entregado 'Con variable
       Else
           e.Item(3) = "No entregado" 'Sin variable
       End If
   End Sub




Saludos.

Hola.

Creo que la logica ya la tengo y lo que se me ocurrio fue llamar un evento dentro de otro es decir la del cellFormatting en el ItemCheck, cree una funcion para llamarla en el evento que la necesite.

Código (vbnet) [Seleccionar] Expandir


Private Sub lvRegDePedido_ItemCheckedChanged(sender As Object, e As ListViewItemEventArgs) Handles lvRegDePedido.ItemCheckedChanged
       If e.Item.CheckState = Enumerations.ToggleState.On Then
           formatoDeCelda()
       End If
   End Sub


Funcion

Código (vbnet) [Seleccionar] Expandir


Private Sub formatoDeCelda()
       Try
           Dim com As ListViewCellElementCreatingEventArgs
           com = Nothing
           If com.CellElement.Data.HeaderText = "Estado del articulo" Then
               com.CellElement.Text = "Entregado"
           End If
       Catch ex As Exception : MsgBox(ex.Message)
       End Try
   End Sub


pero me lanza el siquiente error.



Tal vez me puedan indicar por que.

Saludos.

[On]

Hola como esta.

Mi pregunta es la siquiente tengo un listview Control(Telerik) y he activado un checkbox y por medio de ese checkbox quiero modificar el formato de una columna del listview es decir si el estado del checkbox esta en On mostrara entregado en la columna estado del articulo si no, no entregado.

Aca una imagen los valores estan predefinidos para darme a entender mejor.


Tengo lo siquiente:

Si no ando mal en esta parte me cambiaria el texto de la columna segun el estado del checkbox.

Código (vbnet) [Seleccionar] Expandir


Private Sub lvRegDePedido_ItemCheckedChanged(sender As Object, e As ListViewItemEventArgs) Handles lvRegDePedido.ItemCheckedChanged
If e.Item.CheckState = Enumerations.ToggleState.On Then
          'Cambia texto a entregado
       End If
End Sub


Tambien tengo lo siquiente que es como se le da formato a una celda en especifico.

Código (vbnet) [Seleccionar] Expandir

Private Sub lvRegDePedido_CellFormatting(sender As Object, e As ListViewCellFormattingEventArgs) Handles lvRegDePedido.CellFormatting
           If e.CellElement.Data.HeaderText = "Estado del articulo" Then
               e.CellElement.Text = "Entregado"
           End If
   End Sub

Ahora mi pregunta es como uso el evento ItemCheckedChanged y CellFormatting para que por medio del cambio del checkedChange se le de formato a la celda.

Ya prove varias cosas como lo siquiente pero me lanza un error.

Código (vbnet) [Seleccionar] Expandir

Private Sub lvRegDePedido_CellFormatting(sender As Object, e As ListViewCellFormattingEventArgs) Handles lvRegDePedido.CellFormatting
Dim item As New ListViewDataItem        
   If item.CheckState = Enumerations.ToggleState.On Then
           If e.CellElement.Data.HeaderText = "Estado del articulo" Then
               e.CellElement.Text = "Entregado"
           End If
       End If
   End Sub

tal vez puedan ayudarme.

Saludos.

[SAGA-gl]

Hola SAGA-gl seria bueno que nos comentaras (por lo menos a mi) que estabas haciendo mal puede que a alquien le sirva.

Saludos.

Hola podrías usar la función random para que te genere un número Aleatorio
Acá un ejemplo

Código (vbnet) [Seleccionar] Expandir

Dim numeroAleatorio As New Random()
Label1.Text = System.Convert.ToString(numeroAleatorio.Next)

También puedes usar rangos etc

Código (vbnet) [Seleccionar] Expandir


'Rango de 1000 a 10,000
Dim rnd1 As New Random()
Dim N As Integer = rnd1.Next(1000, 10000)
'Console.WriteLine("{0:0000}", N)
RadLabel39.Text = "PCI: " + N.ToString

'Genera números aleatorios de 4 dígitos desde 0 a 9999
Dim rnd1 As New Random()
Dim N As Integer = rnd1.Next(9999)
'Console.WriteLine("{0:0000}", N)
RadLabel39.Text = "PCI: " + N.ToString

También puedes ver Rnd y Randomize en msdn.

Saludos.

Pd: Si no es lo que buscas seguro alguien te ayuda.

[Eleкtro]

Gracias por responder a mis preguntas y por las aclaraciones Eleкtro

Leeré la documentación que me compartes para tener un conocimiento más amplio sobre que es Linq
Y gracias por aclarar que no es recomendable el uso excesivo de esta herramienta para principiantes como yo ya que puede llevar a malos hábitos de programación.

Muchas gracias cualquier duda que tenga la hago saber gracias de nuevo, ya tengo material para leer en estos días y gracias por los ejemplos tambien me son de ayuda y entendimiento.

Saludos.

PD: Dejo abierto el hilo por si alguien más quiere comentar.

Hola como están.

Estaba haciendo una búsqueda en un dataGriedview y me topé con Linq me gustaría saber para que sirve.

Las preguntas concretas son:

1. Cuáles son las formas de implementar Linq en vb.net y cómo?
2. Ya viene integrado en vb.net por lo que veo si o hay que instalar algo más?
3. Con referencia a la primer pregunta es conveniente utilizarlo trae alguna ventaja en el uso de VB.net?
4. Estas consultas se pueden hacer a cualquier tipo de control seria a cualquier conjunto de datos que tenga en vb.net?
5. La última lo recomendarían usar?

Saludos.

Hola no entendí muy bien tu pregunta en vez de usar

Código (java) [Seleccionar] Expandir

System.exit(0)

Puedes usar .dispose()

ya que el exit te cierra totalmente el programa, en cuanto a que te abre todas las ventanas de un solo, puede que las estés llamando todas al mismo tiempo, si tiene un botón puedes usar el evento clik para que te cierre en la ventana que está abierta y abrir la que sique.

En seudo código sería algo como

Código (java) [Seleccionar] Expandir

evento clik
{
    nombreDeTuInterfaz.Dispose();
    NombreDeLaInterfazAAbrir.show();
}

Disculpa no tengo netBeans instalado para darte un ejemplo mejor.

Saludos.

Hola ya lo resolvi  

Me estaba complicando la vida.



El dataGriev tiene un evento de sumar summary

Código (vbnet) [Seleccionar] Expandir


Dim summaryItem As New GridViewSummaryItem("Monto", "Total = {0}", GridAggregateFunction.Sum)

Dim summaryRowItem As New GridViewSummaryRowItem()

summaryRowItem.Add(summaryItem)
Me.gvFactura.SummaryRowsTop.Add(summaryRowItem)


Y luego use el evento GroupSummaryEvaluate para manipular el dato.

Código (vbnet) [Seleccionar] Expandir


Private Sub GvFactura_GroupSummaryEvaluate(sender As System.Object, e As Telerik.WinControls.UI.GroupSummaryEvaluationEventArgs) Handles gvFactura.GroupSummaryEvaluate
       txtSubtotal.Text = e.Value
   End Sub

Saludos.