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
|