Besoin d'aide avec MS Access et

Question

de RichTextBox Fondamentalement, j'affiche un tableau de temps des salles réservées. J'ai 25 années RickTextBox sur ma forme et je mis en place cette boucle pour obtenir les données à partir d'une base de données pour les réservations:

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=F:\Project\database.mdb;") 
cn.Open() 
' Looping for two weeks in advance 
For x = 0 To 13 
    cmd = New OleDbCommand("SELECT bs1.teacher, bs1.date, bs1.period FROM(" & cbRoom.Text.ToLower & ") WHERE(((bs1.date) = #" & current & "#)) ORDER BY bs1.period;", cn) 
    dr = cmd.ExecuteReader 
    While dr.Read() 

    End While 
    dr.Close() 
    cn.Close() 
    current = current.AddDays(1) 
Next 

Il obtient les données comme il se doit, mais je suis confus quant à la façon dont je peux mettre dans le RichTextBox sans utiliser 30 instructions IF impaires. Fondamentalement, il tire des données pour lundi, puis mardi, puis jeudi, comme ça pendant 14 jours. Les zones de texte sont nommées "mon1", "mon2", "mon3" ... "tues1", "tues2" etc ... et je dois d'une manière ou d'une autre obtenir les données dans chacune d'entre elles sans avoir vraiment du code pauvre et bâclé.

Toute aide serait très appréciée, merci.

Answer 1

Si vous changez vos zones de texte afin qu'ils soient nommés « journée0 » à travers « J13 », vous pouvez y accéder dans votre boucle comme ceci:

For x = 0 to 13 
    Me.Controls("Day" & x) = SomeValue 
Next