Question

原谅我的标题，我不知道这叫什么。

我有一个MS Access数据库设置，Period字段的值为1,2,3,4或5.我使用数据库连接检索这些值，我想引用一个特定的根据从数据库中抓取的时间段进行控制。

这是示例代码，当然是伪。

TextBox(dr(3)).Text = dr(0)

dr(3)包含句点，dr（0）包含我想要放入文本框的内容。我的表单上有以下文本框：TextBox1，TextBox2，TextBox3，TextBox4和TextBox5。

因此，如果dr(3)包含2，那么我想引用TextBox2。

我希望我已经明确表示，非常感谢任何帮助，谢谢。：）

Answer 1

我假设您的文本框在同一个控件上（即 - 它们具有相同的父对象）。你可以使用：

Dim txtbox as TextBox = CType(parentControl.FindControl("TextBox" & dr(3).ToString()), TextBox)
txtBox.Text = dr(0)

编辑：对于groupbox

For each ctrl as Control in myGB.Controls
    If ctrl.ID = "TextBox" & dr(3).ToString() Then
        CType(ctrl, TextBox).Text = dr(0)
        'EDIT: add exit to stop iteration once the textbox is found
        Exit For  
    End If
Next

Answer 2

我在VBA中有点生疏但你可能想要使用控制数组。当控件设置为控件数组时，您可以使用dr（3）索引该数组。

如何从模块引用控件？

2 个答案: