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”等......我需要以某种方式将数据输入所有这些文件而不会有非常糟糕和邋code的代码。

非常感谢任何帮助，谢谢。

Answer 1

如果您更改文本框以便将它们命名为“Day0”至“Day13”，则可以在for循环中访问它们，如下所示：

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

需要有关MS Access和RichTextBox的帮助

1 个答案: