需要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