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 : 35 : 36 : 37 : 38 : 39 : 40 : 41 : 42 : 43 : 44 : 45 : 46 : 47 : 48 : 49 : 50 : 51 :
d'I note = note et I et « . Texte » notebc = note et I et « .BackColor » strnote = strnote et I et « . Texte » strcreate = strcreate et I et « . Texte » memnote = memnote et I et « . Texte » dtmcreate = dtmcreate et I et « . Texte » notev = note et I et « .visible » strnotev = strnote et I et « .visible » strcreatev = strcreate et I et « .visible » memnotev = memnote et I et « .visible » dtmcreatev = dtmcreate et I et « .visible » 'ajouter aux notes et rendre chacun évident S'IsDBNull (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« bytnote »)) = faux puis Si (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« bytnote »)) = « 1 » puis notebc = System.Drawing.Color.Red note = (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« bytnote »)) Autrement notebc = System.Drawing.Color.White Finir si le strnotev = rectifient le strcreatev = rectifient le memnotev = rectifient le dtmcreatev = rectifient le notev = rectifient Finir si S'IsDBNull (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« strnote »)) = faux puis strnote = (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« strnote »)) Finir si S'IsDBNull (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« memnote »)) = faux puis memnote = (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« memnote »)) Finir si S'IsDBNull (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« dtmcreate »)) = faux puis dtmcreate = (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« dtmcreate »)) Finir si S'IsDBNull (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« strcreate »)) = faux puis strcreate = (dsNotes.Tables (« tblPatientNote »). Rangées (i). Article (« strcreate »)) Finir si i = I + 1 Boucle Sous-marin d'extrémité
1 :
note = C (Me.Controls (note et i.ToString ()), Boîte à textes). Texte