probleme de calcul

Question

bonjour
j'ai un petit probleme
si je mets replace a zprixlot.text ma division entre les deux colonnes (4 et 5) ne marche pas, il me met type incompatible
si je ne mets pas ca marche
pourquoi?
ou est mon erreur
merci de votre aide
 
Set adoAjout = Db.Execute("INSERT INTO catalogfournisseur(piece, designation, fournisseur, reffournisseur, prixachatlot, taillelot) VALUES('" & ZRefInterne.Text & "','" & Replace(ZDes.Text, "'", "''") & "','" & frmCatFour.Zcode.Text & "','" & ZRefFour.Text & "', '" & Replace(ZPrixLot.Text, ".", ",") & "','" & ZTailleLot.Text & "');")
 
Set witem = frmCatFour.LVCatalog.ListItems.Add(, , ZRefInterne.Text)
witem.SubItems(1) = ZRefInterne.Text
witem.SubItems(2) = ZDes.Text
witem.SubItems(3) = ZRefFour.Text
witem.SubItems(4) = ZPrixLot.Text
witem.SubItems(5) = ZTailleLot.Text
witem.SubItems(6) = witem.SubItems(4) / witem.SubItems(5)
 
dauphin70

Renfield · Answer

VB ne reconnais tout simplement pas ça comme une valeur numérique....  

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Horfee · Answer

faudrait peut etre que t'utilise soit Csng(Expression),CDbl(Expression),CDec(Expression) sous VB6, soit Ctype(Valeur,type) sous VB.net

Probleme de calcul

2 réponses

Discussions similaires