Calculfied dans un report

Bonjour,

Pour la creatin d'un rapport je souhaite decoupe une chaine en fonctionne de sa longueur et renvoye un caractere.
La fonction ci dessous fonctionne bien.

Code:

---

1 2 3 4 5

=iif( Len(Fields!BatchNumber.Value) = 9, GetChar(Fields!BatchNumber.Value, 8), "?" )

---

Par contre, lorsque j'essaye d'en imbriquer plusieurs cela ne fonctionne plus que pour la derniere verification.
(Ici pour les chaines de 12 caracteres ca fonctionne, mais les chaines de 9 caracteres me renvoye erreurs...)

Code:

---

1 2 3 4 5 6 7 8 9

=iif( Len(Fields!BatchNumber.Value) = 9, GetChar(Fields!BatchNumber.Value, 8), iif( Len(Fields!BatchNumber.Value) = 12, GetChar(Fields!BatchNumber.Value, 10), "?" ) )

---

Quelqu'un aurai une idee?

Merci

Bonjour,

Je crains n'avoir pas bien compris ton problème mais déjà "Len" vient du VB6 et est obsolète, en VB.Net on utilise le .length.

Mais je ne comprends pas bien ta question;
Si la chaine contient 9 caractères tu veux afficher le 8ème et sie elle contient 12 tu veux afficher le 10ème?

Comme ça?

Code:

---

1 2 3 4 5 6

Dim Chaine As String = Fields!BatchNumber.Value If Chaine.Length = 9 Then MessageBox.Show(Chaine.ToCharArray(7, 1)) ElseIf Chaine.Length = 12 Then MessageBox.Show(Chaine.ToCharArray(9, 1)) End If

---

oui, c'est bien ca que je veux.
Le probleme c'est que je travaille sur un rapport.
Dans lequel j'insere un calcfield et dans ce calcfield je n'ai acces que a la touche fonction (fx) ou les possibilite de code sont tres limite.
(pas de cast par exemple)

Il n'y a pas de rapport avec VB.NET donc (la présente section) ???

ben, le code c'est bien du vb?
Sinon dans quel section je dois poser cette question?

merci

PS : Aprioi je viens de voir que je dois pouvoir avoir acces au code du report.
(clic droit / propriete)

Re:

Ca ressemble à du VB avec les accolades du C...
Voilà ce qui arrive quand on met un "C Daziste" a coder en VB :lol:

Bon, ceci étant dit, on se concentre sur la logique et la méthode nécessaire pour résoudre ton problème.
Compte-tenu que nous savons pas trop comment interpréter ce langage et que ça ressemble plus à VB6 /Cxx et que nous sommes pas sur qu'en VB.net ça fonctionne (car c'est complètement différent)... Va pour la solution en VB6!

Je pense que ceci devrait résoudre ton problème:

Code:

---

1 2 3

Dim Chaine As String = "ton texte" =IIf((Len(Chaine) = 9 Or Len(Chaine) = 12), GetChar(Chaine, ((Len(Chaine) - 1) - Int(Len(Chaine) / 12))), "?")

---

Ou encore un peu plus simple:

Code:

---

1 2 3

Dim Chaine As String = "ton texte012" IIf((Len(Chaine) = 9 Or Len(Chaine) = 12), GetChar(Chaine, ((Len(Chaine) - 1) - Len(Chaine) \ 12)), "?")

---

Bonjour Acive

Citation:

---

Envoyé par ACIVE_CS

Re:
Compte-tenu que nous savons pas trop comment interpréter ce langage et que ça ressemble plus à VB6 /Cxx et que nous sommes pas sur qu'en VB.net ça fonctionne (car c'est complètement différent)... Va pour la solution en VB6!

Je pense que ceci devrait résoudre ton problème:

Code:

---

1 2 3

Dim Chaine As String = "ton texte" =IIf((Len(Chaine) = 9 Or Len(Chaine) = 12), GetChar(Chaine, ((Len(Chaine) - 1) - Int(Len(Chaine) / 12))), "?")

---

---

Iif() et Len() sont supportés dans l'Assembly Microsoft.Visual.BASIC. (Tu sais, celui qu'il ne faut pas importer.) Donc, ces éléments-là ont été maintenus pour préserver la compatibilité. Donc, je suis moins convaincu de la portabilité dans d'autres langages comme C, C++ ou Caiguisé.

P.S. Cela me rappelle une vieille histoire. À l'époque de QuickBasic; quelqu'un avait posé une question dans le courrier des lecteurs d'un magazine dont j'oublie le titre. Il demandait quelle structure était la plus rapide entre le If Then Else et le Select Case. Le spécialiste qui répondait avait vérifié le programme compilé. Le résultat a été que les deux blocs étaient compilés exactement de la même façon.

En conclusion, serait-ce la même chose pour un Iif() et un bloc if then else ?

Bonjour cmarcotte comment ça va?
Oui... len, iif, getchar, goto, gosub, QBasic... c'est mon coté nostalgique :lol::lol:

J'ai bien précisé que ce n'est pas du VB.net, et visiblement notre demandeur ne sait pas trop ce que c'est non plus, et j'ai juste voulu suivre sa logique de manière fonctionnelle.

D'après la présentation du code, j'en déduis également qu'il ne code pas avec visual studio (en tout cas pas en VB).
Et encore vu sa signature cela signifie que nous ne fréquentons pas tout à fait les mêmes mondes (ce n'est pas un reproche, au contraire). :lol:

Mais le fait est là; c'est qu'il faut encore que je répare ma boule de cristal :mouarf:

Quand tu parles de la rapidité des différents langages une fois compilés, moi aussi j'ai entendu ça même en ce qui concerne le plus récent Visual Studio entre le C++ et VB.Net par exemple, une fois compilés ça revient au même.
Est-ce vrai ???

OUi oui je suis du monde du C# donc pour moi le vb est une autre langue.. ;)

Bonjour,
Ce n'est pas une critique... :D

Alors as-tu testé ceci?

Code:

---

1 2	IIf((Len(Fields!BatchNumber.Value) = 9 Or Len(Fields!BatchNumber.Value) = 12), GetChar(Fields!BatchNumber.Value, ((Len(Fields!BatchNumber.Value) - 1) - Len(Fields!BatchNumber.Value) \ 12)), "?")

---

Citation:

---

Envoyé par ACIVE_CS

Ce n'est pas une critique... :D

---

Ne t’inquiète pas je ne l'ai pas pris pour une critique.

Le code que tu m'as fourni fonctionne. Par contre, je ne vois pas ce qui etait faux dans le mien.

Sinon pour le langage. Ca ressemble a du VB.
Si tu veux verifier, cree un rapport dans VS. Prends un champs et soit tu cliques sur le bouton 'fx' soit tu cliques dans les proprietes sur value (par exemple) puis sur expression. La dans expression tu codes dans un langage qui ressemble a du VB (pour moi en tant que neophyte VB).

Merci

:mouarf:
Alors, non j'ai pas besoin de vérifier car comme on a dit plus haut on fréquente des mondes différents. :lol::lol:

Imagine que je sois japonais, toi français et que je me casse la tête pour te dire
O
U
I
Mais que toi tu ne comprends que OUI, pourtant c'est le même résultat :lol::lol:

Ton code fonctionne avec une chaine de 12 chr mais pas 9 parce que quand il avait 9 chr tu dépassais la sa longueur dans ta question et il ne comprend plus...

Dans ma logique, je lui demande au début
- Si il a 9 ou 12 chr on fait un calcul, sinon on affiche "?"
- au départ on prend en compte l'avant dernier chr (Len(Chaine) - 1)
- en suite on fait une division toute bête de la longueur pas 12
s'il en a 9 la division fera 0, s'il en a 12 ça fera 1 et on déduit pour avoir notre résultat

:ccool:

Salut xian21,
Je sais que ta discussion est résolue mais je pense qu'il y une solution plus dynamique qui t'offrira plus de mobilité si tu rencontre à nouveau de problème concernant les formules dans un report viewer,
En effet, tu peux ajouter des paramètres pour ton rapport, dans un texte field du rapport, tu met comme formule ton paramètre, puis dans le code du formulaire qui lui donne naissance, tu donne une valeur à ce paramètre.
le code minimal est le suivant :

Code:

---

1 2 3 4 5 6 7 8

Dim paramList As New Microsoft.Reporting.WinForms.ReportParameterCollection Dim valeurParam As String = Form1.TextBox1.Text 'Bien suur sous vb.net tu peux mettre n'importe quelle formule paramList.Add(New Microsoft.Reporting.WinForms.ReportParameter("monParametre",valeurParam ) 'monParametre est le name de ton parametre dans le rapport. Form1121.ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local Form1121.ReportViewer1.LocalReport.SetParameters(paramList) 'tu dois rafraichir le rapport dans le formulaire correspondant

---

Pour ajouter un parametre dans ton rapport sous visual studio 2010, tu ouvre la fenetre conception de ton rapport, tu appuie Ctrl+Alt+D, dans la fenetre qui s'ouvre, tu click bouton droit le petit dossier correspondant à Paramètres -> ajouter un paramètre, et fais attention à son name, il faut qu'il correspond à celle dans ton formulaire, ensuite tu coches "Autoriser une valeur vide" si jamais tu peux ne rien afficher dans ton textField par exemple, sinon tu dois t'assurer que tu passe une valeur à ton paramètre avant de passer au rapport sinon le contenu ne s'affichera pas à l'execution et il t'affichera une sorte d'erreur.
L'avantage : tu programme toujours en vb.net donc pas besoin de se limiter par les fonctions du rapport lui meme.

Merci, a tous les deux.
Je teste ta solution des que je peux anasschiguer.