comparar registros sql con variables

[rikakashi]

Código vb:

If variable = ds4.Tables(0).Rows(0).Item("CAMPO") Then
 

Como puedo comparar estos valore, dentro de un for la variable tiene incremento en 1 y necesito que se valla comparando con cada uno de los registros en el campo devuelto por la consulta.

[othix]

for i as integer = 0 to ds4.Tables(0).Rows.count-1
If variable = ds4.Tables(0).Rows(i).Item("CAMPO") Then
tu_codigo
end if
next i

[rikakashi]

perfecto gracias. asi me funciona bien!!!

[rikakashi]

en base a este problema ahora tengo este

Código vb:

Dim j As Integer = 0
        Dim k As Integer = 0
 
        Do While k = j
            For k = 1 To val_cant
                For i As Integer = 0 To ds4.Tables(0).Rows.Count - 1
                    j = ds4.Tables(0).Rows(i).Item("CL_MEMBRESIA")
                Next i
            Next k
            txt_membresia.Text = k
        Loop
 

como lo pudiera acomodar para que compare si k es diferente a todos los registros el text sea ygual a k y si k es = a todos los registros txt sea = k + 1

[othix]

podrias probar con esto

Dim j As Integer = 0
Dim k As Integer = 0
dim band as boolean =true


For k = 1 To val_cant
For i As Integer = 0 To ds4.Tables(0).Rows.Count - 1
j = ds4.Tables(0).Rows(i).Item("CL_MEMBRESIA")

if not (k=j) then
band=false
end if

Next i
Next k
if band=false then
txt_membresia.Text = k+1
else
txt_membresia.Tex=k
end if

En este caso con alguno que no sea igual a k band=false
o podes buscar le valor que de K en el dataset y ver si te retorna todo el dataset es por que todos son iguales si varia alguno no es igual

dim filas() as datarow
filas()=ds4.Tables(0).Select("CL_MEMBRESIA = "+ k.ToString())
if (filas().lenght=ds4.Tables(0).Rows.Count)then
tu_codigo_cuando_todos_son_iguales
else
tu_codigo_cuando_no_son_iguales
end if

[rikakashi]

encontre una manera mejor

Código vb.net:

Dim j As Integer
        Dim k As Integer = 0
        For i As Integer = 0 To ds4.Tables(0).Rows.Count - 1
            j = ds4.Tables(0).Rows(i).Item("CL_MEMBRESIA")
            If (j - k) = 1 Then
                k = j
            Else
                mem_new = (j - 1)
                Exit For
            End If
        Next i
        If mem_new = 0 Then
            mem_new = val_max + 1
        End If
        txt_membresia.Text = mem_new
 

Lo que hago es comparar el valor tomado por J con el valor anterior asignado a K y y asi obtengo el numero faltante, tu ejemplo funciona othix sin embargo el valor que me devolvia era cantidad de registros + 1 pero igual si se puede mejorar mejor mi codigo podrias ayudarme. Gracias por el apoyo