Bonjours Stéphane,
Pour répondre à vos question, les deux fonctions contenaient (au
départ) le même code. par la suite, la fonction sur les variants est
devenue inutile.
Comme le projet sur lequel je travail est gros (près de 300
objets...) je n'ai pas voulu supprimer la fonction.
pour préciser ma question initiale:
- pourquoi la fonction sur le variant me fait une exception alors que
la fonction sur le DataBaseField non ???
- Pourquoi cela fonctionne en Rb2007 et pas en Rb2008 ?
merci encore,
Jean-François
Le 10 mars 08 à 14:25, Stéphane Mons a écrit :
Le 10 mars 08 à 14:02, Jean-francois Toracca a écrit :
Bonjours a tous,
j'ai un petit problème. j'ai écrit les méthodes suivant en RB
2007r4 il y a quelque mois et elle fonctionnent parfaitement. je
viens de tester la version 2008r1 et j'obtiens une exception
TypeMismatchException sur la fonction utilisant le Variant.
est-ce que quelqu'un pourrait me dire pourquoi s'il vous plait ??????
Function CStringValue(Extends v as variant) As string
Return v.StringValue
End Function
Houla ! Tu implémentes une fonction qui existe déjà et qui,
finalement, ne fait rien d'intéressant. AMHA tu devrais l'effacer.
Function CStringValue(Extends DBF As databasefield) As string
dim vls_Retour As String
dim vltc_Convert as TextConverter
vltc_Convert=GetTextConverter(Mod_SQL.propE_Encod, Encodings.UTF8)
vls_Retour = vltc_Convert.convert(DBF.StringValue)
vls_Retour = vls_Retour.ReplaceAllB("##EndOfLine##", EndOfLine)
Return vls_Retour
End Function
Quel rapport avec la fonction précédente ?
Stéphane
|