Select resultat.GetInt("etat")
Case 1
ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont," "&resultat.GetString("heureprel")&affpest,"vert.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
Case 6
ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont," "&resultat.GetString("heureprel")&affpest,"verti.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
Case 2,3
If resultat.GetString("plvconformitebacterio")="N" Or resultat.GetString("plvconformitechimique")="N" Then
ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont," "&resultat.GetString("heureprel")&affpest,"orange.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
Else
ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont," "&resultat.GetString("heureprel")&affpest,"jaune.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
End If
Case 4
ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont," "&resultat.GetString("heureprel")&affpest,"bebe.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
Case 5
ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont," "&resultat.GetString("heureprel")&affpest,"interdit.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
Case 0
ListAnalyse.Add(CreateListItem(DateFR(resultat.GetString("dateprel"))&amont," "&resultat.GetString("heureprel")&affpest,"gris.png",ListAnalyse.AsView.Width, 70dip),resultat.GetInt("rowid"))
End Select