Non ho ben chiaro le uguaglianze dei codici: conta solo la parità di numeri?

In questo caso, se ad esempio carichi i dati in un datatale, puoi controllare coppia per coppia confrontando i dati:
codice:
dim dt as DataTable=CaricaDati()
for i as integer=0 to dt.Rows.Count-1
dim a as string=dt.Rows(i)("CodiceA").ToString()
dim b as string=dt.Rows(i)("CodiceB").ToString()
' confronto solo i due codici dal secondo carattere
if a.Substring(1)=b.Substring(1) then
   ' questi codici sono uguali
   ' posso eseguire le operazioni che voglio:
   ' dt.Rows(i).Delete() ' per cancellare
end if
next
Ma vuoi evidenziare queste similarità in fase di visualizzazione o di elaborazione?

Ciao