1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Public Sub VerifDataAnalyse()
Dim Row As DataRowView
Dim dsSaisie = New data.dsSaisieAnalyses
Dim LstParam = New data.dsSaisieAnalysesTableAdapters.PARAMETRESTableAdapter
Dim TableAnalyses As data.dsSaisieAnalyses.AnDataTable
MsgBox("VerifDataAnalyse !!")
'* Chargement de la liste des parametres
LstParam.ClearBeforeFill = True
LstParam.Fill(dsSaisie.PARAMETRES)
'* Chargement des données du prélèvement en cours
Row = CType(Session("prvt"), DataView)(Session("nb") - 1)
'* Chargement des analyses par rapport au prélèvement
TableAnalyses = oform.AnalysesLaboratoire(Row("STEP"), Row("DTE"), Row("HRE"), Row("PMO"), Row("LOC"))
'* Boucles pour tester la correspondance entre les analyses enregistrées et affichées
For Each _item As DataGridItem In dgAnalyses.Items
Dim val = CType(_item.FindControl("txtVal"), TextBox).Text
Dim param = CType(_item.FindControl("hdPARAM"), HtmlInputHidden).Value
For Each an In TableAnalyses
If an.PARAM = param Then
If an.VAL <> val Then
Dim param_lib = dsSaisie.PARAMETRES.Select(String.Format("ID='{0}'", param))
MsgBox("La valeur du champ: " + param_lib.ElementAt(0).Item(1).ToString() + " a changée !")
End If
Exit For
End If
Next
Next
End Sub |