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:
de i nota = nota y i y “. Texto” notebc = nota y i y “.BackColor” strnote = strnote y i y “. Texto” strcreate = strcreate y i y “. Texto” memnote = memnote y i y “. Texto” dtmcreate = dtmcreate y i y “. Texto” notev = nota y i y “.visible” strnotev = strnote y i y “.visible” strcreatev = strcreate y i y “.visible” memnotev = memnote y i y “.visible” dtmcreatev = dtmcreate y i y “.visible” 'agregar a las notas y hacer cada uno visible Si IsDBNull (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“bytnote”)) = falso entonces Si (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“bytnote”)) = “1” entonces notebc = System.Drawing.Color.Red nota = (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“bytnote”)) notebc = System.Drawing.Color.White Terminar si el strnotev = verdad el strcreatev = verdad el memnotev = verdad el dtmcreatev = verdad el notev = verdad Terminar si Si IsDBNull (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“strnote”)) = falso entonces strnote = (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“strnote”)) Terminar si Si IsDBNull (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“memnote”)) = falso entonces memnote = (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“memnote”)) Terminar si Si IsDBNull (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“dtmcreate”)) = falso entonces dtmcreate = (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“dtmcreate”)) Terminar si Si IsDBNull (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“strcreate”)) = falso entonces strcreate = (dsNotes.Tables (“tblPatientNote”). Filas (i). Artículo (“strcreate”)) Terminar si i = i + 1 Lazo Submarino del extremo
1:
nota = C (Me.Controls (nota y i.ToString ()), TextBox). Texto