error: "These columns don't currently have unique values."

[maialenlopez]

Hola,

Tengo el código que muestro mas abajo y al ejecutarlo me da el siguiente error. "These columns don't currently have unique values."

Código vb.net:

cm.Connection = cn
            cm.CommandText = "FSPM_ROL_PARTICIPANTES"
            cm.Parameters.Add("@BLOQUE", lBloque)
            cm.Parameters.Add("@ROL", lId)
            cm.Parameters.Add("@IDI", sIdi)
            cm.Parameters.Add("@INSTANCIA", lInstancia)
            If lFavorita <> Nothing Then
                cm.Parameters.Add("@ID_FAVORITA", lFavorita)
            End If
 
            cm.CommandType = CommandType.StoredProcedure
            da.SelectCommand = cm
            da.Fill(dr)
 
            dr.Relations.Add("ROL_BLOQUES", dr.Tables(0).Columns("ROL"), dr.Tables(1).Columns("ROL"))
 

¿Alguien me puede ayudar? No se de donde viene ese erro

Gracias