如果数据库值为Text，则动态添加文本框

Question

我有一个数据库字段调用“type”（TextBox，DropDown，CheckBox）和“value”列。我需要使用VB.net动态地阅读网页中的类型和显示。

示例：如果数据库类型是TextBox，我需要在网页中显示TextBox，当用户在TextBox中输入值时，需要更新到数据库字段“value”。

如果数据库值是vb.net中的文本，如何动态添加文本框？

Answer 1

试试这个。它将检查您应该从数据库中获取的 MyDatabaseType 的值。如果值为“TextBox”，则会创建TextBox并将其添加到表单 MyForm ：

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
  If MyDatabaseType = "TextBox" Then
    Dim TextBox1 As New TextBox
    TextBox1.ID = "TextBox1"
    MyForm.Controls.Add(TextBox1)
  End If

  InitializeComponent()
End Sub

有关详情，请查看this article from Microsoft。