Discussion :

[sammy1988]

Hello,

J'ai un warning sur ma fonction groupTest qui me dit ceci:

Avertissement 1 La fonction 'groupTest' ne retourne pas une valeur pour tous les chemins de code. Une exception de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé.

Cette erreur veut dire qu'il n'y a pas forcement de "réponse" pour tout les cas de figures ? Si oui je ne vois pas quoi mettre pour un if...

Pouvez-vous m'aider à corriger cette boulette ?

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    Function groupTest() As Object()
 
        If (My.User.IsInRole("RBAFCT_LIS")) Then
 
            Server.Transfer("adminpage.aspx")
 
        Else : Server.Transfer("userpage.aspx")
 
        End If
 
 
    End Function

[nasty]

Bonjour
Euh question bete, y'a pas de return dans ta fonction?!

essaye de faire un code comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function groupTest() as object
dim var as object =  Server.Transfer("userpage.aspx")
 
        If (My.User.IsInRole("RBAFCT_LIS")) Then      var =Server.Transfer("adminpage.aspx")
 
return var
End function

En esperant t'avoir aidé

Nasty

[achrefghanmi]

Hello,

J'ai un warning sur ma fonction groupTest qui me dit ceci:

Avertissement 1 La fonction 'groupTest' ne retourne pas une valeur pour tous les chemins de code. Une exception de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé.

Cette erreur veut dire qu'il n'y a pas forcement de "réponse" pour tout les cas de figures ? Si oui je ne vois pas quoi mettre pour un if...

Pouvez-vous m'aider à corriger cette boulette ?

Code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Function groupTest() As Object()
 
        If (My.User.IsInRole("RBAFCT_LIS")) Then
 
            Server.Transfer("adminpage.aspx")
return ton_valeur
        Else : Server.Transfer("userpage.aspx")
return ton_valeur
        End If

ou si ne voulez pas de return vous devez utiliser un procedure sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
dim sub()
  If (My.User.IsInRole("RBAFCT_LIS")) Then
 
            Server.Transfer("adminpage.aspx")
 
  Else : Server.Transfer("userpage.aspx")
  End If
 
    End Function

[sammy1988]

Merci a vous 2 par contre je suis bête mais je ne comprends pas quoi mettre après le Return comme valeur ?

[nasty]

Bah tu retourne la valeur que tu veux recuperer!

Le tuto VB ca peut t'etre utile

Nasty

[sammy1988]

Bah tu retourne la valeur que tu veux recuperer!

Le tuto VB ca peut t'etre utile

Nasty

justement, je ne cherche pas a récupérer de valeur mais je voulais juste orienter l'utilisateur avec ce code vers telle ou telle page

[nasty]

Alors il ne faut pas faire une fonction. Une simple sub suffit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public sub groupTest
        If (My.User.IsInRole("RBAFCT_LIS")) Then
            Server.Transfer("adminpage.aspx")
        Else 
            Server.Transfer("userpage.aspx")
        End If
End Sub

Nasty

[sammy1988]

Alors il ne faut pas faire une fonction. Une simple sub suffit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public sub groupTest
        If (My.User.IsInRole("RBAFCT_LIS")) Then
            Server.Transfer("adminpage.aspx")
        Else 
            Server.Transfer("userpage.aspx")
        End If
End Sub

Nasty

nickel ça par contre je fais comment pour l'appeler avant j'utilisais <%Response.Write(groupTest)%> dans ma page asp.net

merci



voila ce quil faut utiliser pour garder la ligne plus haut )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function groupTest() As Object()        
    If (My.User.IsInRole("RBAFCT_LIS")) Then
        Server.Transfer("adminpage.aspx")        
    Else : Server.Transfer("userpage.aspx")        
    End If
    Return Nothing
End Sub