database - 如何从 vb.net 中的 tablelayoutpanel 中的文本框访问值

Question

我已经创建了一个用于编辑数据库记录的屏幕。用户选择表格后，我在 TableLayoutPanel1 中动态添加了标签和文本框。我想知道如何访问 TableLayoutPanel1 中 TextBox 中存在的值

我使用的代码:

    Dim strSQL, strSQL1 As String
    Dim ln As Integer
    Dim reader As OleDbDataReader
    Dim connection As OleDbConnection
    Dim ds As New DataSet
    connection = New OleDbConnection(CONNECT_STRING)
    connection.Open()
    ln = 0
    strSQL = " select * from syscat.columns where TABSCHEMA like 'QA1MM%' and TABNAME like 'SKU_STR_LIST' with ur  "
    RichTextBox1.Text = RichTextBox1.Text + strSQL
    Dim selectCMD As OleDbCommand = New OleDbCommand(strSQL, connection)
    reader = selectCMD.ExecuteReader
    MessageBox.Show("Column: " & reader(0) & " ")
    While reader.Read()
        If String.IsNullOrEmpty(reader(0)) Then

        Else
            TableLayoutPanel1.ColumnCount = 2
            TableLayoutPanel1.RowCount = 20
            Dim aLabel As New System.Windows.Forms.Label
            Dim aTextBox As New System.Windows.Forms.TextBox
            aLabel.Name = "New Label"
            aLabel.Text = reader(0).Text
            TableLayoutPanel1.Controls.Add(aLabel, 0, ln)
            TableLayoutPanel1.Controls.Add(aTextBox, 1, ln)
            ln = ln + 1
        End If
    End While

如何访问我在 TableLayoutPanel1 中动态添加的 aTextBox 中存在的值？

Answer 1

首先，您需要在 TextBox 上设置一个名称。基本上是 aTextbox.Name = "TextBox1"。然后你应该能够通过使用找到控件:

Control c =  TableLayoutPanel1.Controls.Find("TextBox1",true)

但是请记住，这会给您一个控件，而不是一个文本框。因此，以您认为合适的任何方式对其进行类型转换。

Ctype(c,TextBox)
DirectCast(c,TextBox)