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

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.

---

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 Sub

C-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.Key

VB.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 Sub

C-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

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 If

Saludos Gracias.

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

Tienes toda la razón. Entendido, la verdad no se porque cometí ese error! xD

Por otro lado:


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