1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24:
sql = „selecteert strBenchmarkName uit tblBenchmarkname waar intSid =“ & myDataTable.Rows (0) (1) & „orde door strBenchmarkname“ BmTable = Nieuwe DataTable BmTable = getData (sql) Als BmTable.Rows.Count = 0 toen bmName = "" Anders Voor Elke bmrow in BmTable.Rows bmName += bmrow (0) & „,“ Daarna bmName = Weggegaan (bmName, Len (bmName) - 2) Eind als Als isAdmin = Waar toen Als bmName = "" toen bmName = „(niet plaats)“ Beëindig als lblBMName.Text = „style='display “ Anders lblBMName.Text = „style='display “ Eind als