需要MS Access和RichTextBox的幫助

Question

基本上，我顯示的是預訂房間的時間表。我有我的表格上25分RickTextBox的，我成立了這個循環從爲預訂數據庫獲取數據：

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 

它得到的數據像它應該，但我很困惑，我該怎麼它沒有使用30個奇數的IF語句進入RichTextBox。

基本上，它將週一，週二和週四的數據提取爲14天。文本框被命名爲「mon1」，「mon2」，「mon3」...「tues1」，「tues2」等......我需要以某種方式將數據導入所有這些文件中，而不會有非常糟糕和拙劣的代碼。

任何幫助將非常感謝，謝謝。

Answer 1

如果您改變文本框，使它們被命名爲「Day0」直通「Day13」，你可以訪問他們在您的for循環是這樣的：

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