Hola como estan.
Mi consulta es la siquiente tengo un listview y no puedo lograr que no me ingrese datos repetidos
(http://4.bp.blogspot.com/-_V2latiUsUQ/VU6Em0Z7XmI/AAAAAAAAA3k/xX-3iyseodM/s1600/Repetir.png)
Este es mi codigo. de como ingreso los datos. He probado muchas cosas solo pongo el codigo limpio de como ingreso datos para que me den una idea de como hacer para que no me repita datos.
Private Sub RadButton4_Click(sender As System.Object, e As System.EventArgs) Handles RadButton4.Click
If txtArticulosPedidos.Text = "" Or rseCantidadPedido.Text = "0" Then
RadMessageBox.Show(Me, "No ha seleccionado datos", "Información", MessageBoxButtons.OK, RadMessageIcon.Info)
Else
Dim lvItem1 As New ListViewDataItem() 'Variable para los items
'Agrega a cada columna valores
Me.lvListaPedidos.Items.Add(lvItem1)
lvItem1.Item(0) = txtArticulosPedidos.Text
lvItem1.Item(1) = rseCantidadPedido.Text
End If
End Sub
Saludos.
Dim lvItem1 As New ListViewDataItem()
'Estas dos lineas las subi de lugar pues creo que es más entendible así
lvItem1.Item(0) = RadTextBox21.Text
lvItem1.Item(1) = RadSpinEditor1.Text
'Aquí iría la condición
Me.RadListView1.Items.Add(lvItem1)
Entonces lo que deberías prácticamente es recorrer la colección Items del ListView y ver si existe un ListViewDataItem con esos valores. También puedes hacer uso del método Contains(). Que sería algo como nombreDeTuListView.Items.Contains(listViewItemAComprobar) en un If antes de añadirlo al ListView.
Modifico: Ahh, y lo que tienes que verificar es que el Contains() no se cumpla (devuelva false) antes de añadirlo.
Espero haberte ayudado. Disculpa si no soy más específico en cuanto a sintaxis, pero no estoy tan familiarizado con la sintaxis de VB.NET
PD: Quizás Eleкtro te hecha una mano!
PD: Una sugerencia, deberías usar nombres descriptivos para tus controles y/o variables, de esta manera es más entendible el código
Hola gracias por responder ya lo logre si hay otra forma mas eficiente se los agradeceria
Private Sub RadButton4_Click(sender As System.Object, e As System.EventArgs) Handles btnAgregarBoton.Click
'Verifica que el dato ingresado no exista
Dim existe As Boolean = False
For Each lvItem1 In lvListaPedidos.Items 'Recorre el listview
If lvItem1.Item(0) = txtArticulosPedidos.Text Then 'Compara la columna (subitem de la columna)
existe = True 'Si lo que hay en listview es igual a lo que hay en el artículo ya existe
Exit For
End If
Next
'Si es verdadero se muestra este mensaje
If existe Then
MessageBox.Show("el item ya existe")
Return
End If
'Si los campos están vacíos no ingresa datos
If txtArticulosPedidos.Text = "" Or rseCantidadPedido.Text = "0" Then
RadMessageBox.Show(Me, "No ha seleccionado datos", "Información", MessageBoxButtons.OK, RadMessageIcon.Info)
Else
Dim lvItem1 As New ListViewDataItem() 'Variable para los items
'Agrega a cada columna valores
Me.lvListaPedidos.Items.Add(lvItem1)
lvItem1.Item(0) = txtArticulosPedidos.Text
lvItem1.Item(1) = rseCantidadPedido.Text
End If
End Sub
Saludos!
Antes de nada, cuando formules una pregunta de este tipo asegúrate de aclarar que estás utilizando los componentes de
Telerik, que no todo el mundo los conoce y eso puede confundir a los demás.
Cita de: nolasco281 en 10 Mayo 2015, 05:20 AMsi hay otra forma mas eficiente se los agradeceria
Lo que estás haciendo con el
For Each es una solución efectiva, pero en este caso específico donde solo tienes 2 columnas y quieres que no se repita la columna de artículos, deberías asignarle una llave a cada item con el nombre del artículo, eso lo puedes hacer estableciendo un valor a la propiedad
ListViewItem.Name, y luego utilizar la función
ListView.Items.ContainsKey para determinar si la llave existe.
VB.Net:
Private Sub Test() Handles MyBase.Shown
Dim articulo As String = "Clavos"
Dim cantidad As Integer = 40
Dim lvItem As New ListViewItem({articulo, cantidad.ToString("00")}) With
{
.Name = articulo
}
Me.ListView1.Items.Add(lvItem)
End Sub
Private Sub Button1_Click() Handles Button1.Click
Dim articulo As String = "Clavos"
Dim cantidad As Integer = 5
If Me.ListView1.Items.ContainsKey(articulo) Then
MessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
' ...
End If
End SubC-Sharp:
private void Test()
{
string articulo = "Clavos";
int cantidad = 40;
ListViewItem lvItem = new ListViewItem({articulo, cantidad.ToString("00")}) { Name = articulo };
this.ListView1.Items.Add(lvItem);
}
private void Button1_Click()
{
string articulo = "Clavos";
int cantidad = 5;
if (this.ListView1.Items.ContainsKey(articulo)) {
MessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, MessageBoxIcon.Error);
} else {
// ...
}
}
//=======================================================
//Service provided by Telerik (www.telerik.com)
//======================================================Nota: La función
ListView.Items.ContainsKey es case-insensitive, es decir, no distingue entre minúsculas y mayúsculas.
Para un
RadListView puedes utilizar la función
RadListView.FindItemByKey, para asignar la llave a un item lo puedes hacer estableciendo un valor a la propiedad
ListViewDataItem.KeyVB.Net:
Private Sub Test() Handles MyBase.Shown
Dim articulo As String = "Clavos"
Dim cantidad As Integer = 40
Dim lvItem As New ListViewDataItem(text:="", values:={articulo, cantidad.ToString("00")}) With
{
.Key = articulo
}
Me.RadListView1.Items.Add(lvItem)
End Sub
Private Sub Button1_Click() Handles Button1.Click
Dim articulo As String = "Clavos"
Dim cantidad As Integer = 5
If Me.RadListView1.FindItemByKey(key:=articulo, searchVisibleItems:=True) IsNot Nothing Then
RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error)
Else
' ...
End If
End SubC-Sharp:
private void Test()
{
string articulo = "Clavos";
int cantidad = 40;
ListViewDataItem lvItem = new ListViewDataItem(text: "", values: {articulo, cantidad.ToString("00")}) { Key = articulo };
this.RadListView1.Items.Add(lvItem);
}
private void Button1_Click()
{
string articulo = "Clavos";
int cantidad = 5;
if (this.RadListView1.FindItemByKey(key: articulo, searchVisibleItems: true) != null) {
RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error);
} else {
// ...
}
}
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================Nota: La función
RadListView.FindItemByKey es case-sensitive, es decir, distingue entre minúsculas y mayúsculas.
Saludos
Cita de: DarK_FirefoX en 10 Mayo 2015, 03:47 AMTambién puedes hacer uso del método Contains(). Que sería algo como nombreDeTuListView.Items.Contains(listViewItemAComprobar) en un If antes de añadirlo al ListView.
Cabe mencionar que la función
ListView.Items.Contains realiza una comparación de referencias (tanto para un
ListView cómo un
RadListView, y otros muchos controles de .Net Framework).
¿Que quiere decir esto?, pues que que crear dos instancias del mismo tipo de objeto, en este caso dos
ListViewItem distintos que tengan los mismos datos, no los convierte en el mismo objeto, por que tienen referencias distintas.
Ejemplo demostrativo:
Dim articulo As String = "Clavos"
Dim cantidad As Integer = 1
Dim lvItem1 As New ListViewItem({articulo, cantidad.ToString("00")})
Dim lvItem2 As New ListViewItem({articulo, cantidad.ToString("00")})
Dim areEqual As Boolean = lvItem1.Equals(lvItem2)
Debug.WriteLine(String.Format("Son Iguales?: {0}", areEqual))C#:
string articulo = "Clavos";
int cantidad = 1;
ListViewItem lvItem1 = new ListViewItem({articulo, cantidad.ToString("00")});
ListViewItem lvItem2 = new ListViewItem({articulo, cantidad.ToString("00")});
bool areEqual = lvItem1.Equals(lvItem2);
Debug.WriteLine(string.Format("Son Iguales?: {0}", areEqual));Saludos!
CitarAntes de nada, cuando formules una pregunta de este tipo asegúrate de aclarar que estás utilizando los componentes de Telerik, que no todo el mundo los conoce y eso puede confundir a los demás.
Lo tendre muy en cuenta.
==============================
Hola estaba probando lo de case sensitive pero todavía no me detecta si la palabra esta en mayus o no.
que estoy haciendo mal.
Dim lvItem1 As New ListViewDataItem()
lvItem1.Key = txtArticulosPedidos.Text
If Me.lvListaPedidos.FindItemByKey(key:=txtArticulosPedidos.Text, searchVisibleItems:=True) IsNot Nothing Then
RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error)
Else
Me.lvListaPedidos.Items.Add(lvItem1)
lvItem1.Item(0) = txtArticulosPedidos.Text
lvItem1.Item(1) = rseCantidadPedido.Text
End IfSaludos Gracias.
No estás haciendo nada mal, simplemente la llave no se encuentra por que las minúsculas/mayúsculas no coinciden, o el texto que estás buscando no existe cómo llave.
Para condicionar el resultado, asigna la llave de los items en minúscula:
Dim articulo As String = "Clavos"
Dim cantidad As Integer = 40
Dim lvItem As New ListViewDataItem(text:="", values:={articulo, cantidad.ToString("00")}) With
{ .Key = articulo.Trim.ToLower }
Me.RadListView1.Items.Add(lvItem)
Y entonces busca en minúscula:
Dim articulo As String = txtArticulosPedidos.Text.Trim
Dim cantidad As String = Convert.ToInt32(rseCantidadPedido.Text).ToString("00")
If Me.lvListaPedidos.FindItemByKey(key:=articulo.ToLower, searchVisibleItems:=True) IsNot Nothing Then
RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error)
Else
Dim lvItem As New ListViewDataItem(text:="", values:={articulo, cantidad} with
{ .Key = articulo.ToLower }
Me.lvListaPedidos.Items.Add(lvItem)
End If
Saludos
Muchas gracias Eleкtro
Lo probé de las dos formas y funciona perfecto. Lo entendí todo lo único que investigare es el .trim
Gracias por lo de las llaves, y agregar condiciones a ellas como llaves. (Valga la redundancia)
Saludos ;-) ;-)
Dim lvItem1 As New ListViewDataItem()
lvItem1.Key = txtArticulosPedidos.Text.ToLower
If Me.lvListaPedidos.FindItemByKey(key:=txtArticulosPedidos.Text.ToLower, searchVisibleItems:=False) IsNot Nothing Then
RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error)
Else
Me.lvListaPedidos.Items.Add(lvItem1)
lvItem1.Item(0) = txtArticulosPedidos.Text
lvItem1.Item(1) = rseCantidadPedido.Text
End If
Veo que quito este, lo dejo por si a alquien le sirve de esta forma lo entendi. : ). ahora vere el que modifico
Dim key As String = txtArticulosPedidos.Text.Trim
If Me.lvListaPedidos.FindItemByKey(key:=key.ToLower, searchVisibleItems:=True) IsNot Nothing Then
RadMessageBox.Show("El articulo ya existe en la lista.", "", MessageBoxButtons.OK, RadMessageIcon.Error)
Else
Dim lvItem1 As New ListViewDataItem
lvItem1.Key = key.ToLower
Me.lvListaPedidos.Items.Add(lvItem1)
lvItem1.Item(0) = key
lvItem1.Item(1) = rseCantidadPedido.Text
End If
Falto ) despues de }
Dim lvItem As New ListViewDataItem(text:="", values:={articulo, cantidad} with
'Dim cantidad As String = Convert.ToInt32(rseCantidadPedido.Text).ToString("00")
Gracias le da un mejor formato a la cantidad vere si no me causa problema en la BD ya que si no me equivoco lo manda como string.
Muchas gracias de nuevo Eleкtro
Parezco retrasado, estoy viendo todo el rato que publicas código en VB.Net pero yo tenía metido en la cabeza que solo manejabas C# por que te confundí con otro usuario y por eso te puse el código en C# aunque solo veia Vb.Net, no era por "presumir" ni nada parecido jaja, el código en C# la verdad es que quedó de más.
Cita de: nolasco281 en 10 Mayo 2015, 11:06 AMinvestigare es el .trim
La función
Trim,
TrimStart y
TrimEnd lo que hacen es eliminar los espacios del principio o del final de un String, pero puedes utilizar sus
overloads para especificar otros (uno, o varios) caracteres a eliminar.
En el ejemplo de arriba yo solo utilizo Trim cómo modo preventivo por si a lo mejor en tu aplicación te estaba fallando por que escribias algún espacio al principio o al final.
Cita de: nolasco281 en 10 Mayo 2015, 11:06 AM'Dim cantidad As String = Convert.ToInt32(rseCantidadPedido.Text).ToString("00")
Gracias le da un mejor formato a la cantidad vere si no me causa problema en la BD ya que si no me equivoco lo manda como string.
Si quieres enviarlo a la DataBase como valor de tipo Integer entonces solo tienes que convertir el string formateado:
Dim value as Integer = CInt("05")o también:
Dim value as Integer = Convert.ToInt32("05")Saludos
Cita de: Eleкtro en 10 Mayo 2015, 09:52 AM
Cabe mencionar que la función ListView.Items.Contains realiza una comparación de referencias (tanto para un ListView cómo un RadListView, y otros muchos controles de .Net Framework).
¿Que quiere decir esto?, pues que que crear dos instancias del mismo tipo de objeto, en este caso dos ListViewItem distintos que tengan los mismos datos, no los convierte en el mismo objeto, por que tienen referencias distintas.
Ejemplo demostrativo:
Dim articulo As String = "Clavos"
Dim cantidad As Integer = 1
Dim lvItem1 As New ListViewItem({articulo, cantidad.ToString("00")})
Dim lvItem2 As New ListViewItem({articulo, cantidad.ToString("00")})
Dim areEqual As Boolean = lvItem1.Equals(lvItem2)
Debug.WriteLine(String.Format("Son Iguales?: {0}", areEqual))
C#:
string articulo = "Clavos";
int cantidad = 1;
ListViewItem lvItem1 = new ListViewItem({articulo, cantidad.ToString("00")});
ListViewItem lvItem2 = new ListViewItem({articulo, cantidad.ToString("00")});
bool areEqual = lvItem1.Equals(lvItem2);
Debug.WriteLine(string.Format("Son Iguales?: {0}", areEqual));
Saludos!
Tienes toda la razón. Entendido, la verdad no se porque cometí ese error! xD
Por otro lado:
Cita de: EleкtroParezco retrasado, estoy viendo todo el rato que publicas código en VB.Net pero yo tenía metido en la cabeza que solo manejabas C# por que te confundí con otro usuario y por eso te puse el código en C# aunque solo veia Vb.Net, no era por "presumir" ni nada parecido jaja, el código en C# la verdad es que quedó de más.
Agradezco que hayas publicado también el código en C#, yo soy el que maneja C# y no VB.NET, quizás por eso lo hiciste. Gracias