Optimiser une boucle For Each
Bonjour ,
j'ai un code qui fait la modification de valeur d'une colonne , le problème c que avec 18000 articles il prend 1 min 30 s . voici le code :
Code:
1 2 3 4 5
|
Dim cours_euro As Decimal = TresorsServer.valeurUnique("select cours_devi from Devise where code_devi='EUR'")
For Each article As DataRow In article_fox_pro.Rows
article.Item(4) = CDec(General.formater(article.Item(4) / cours_euro).Replace(".", ","))
Next |
est ce que on peux diminuer le temps de traitement ??