Question

我会尽量保持这种简短和甜蜜。

我正在创建一个用于运行sql查询的UI，对于用于查询的每个参数，它为每个参数生成一个标签和一个文本框，并将控件放在面板上。我有这个部分正常工作，但现在我需要遍历每个控件并从文本框中为每个参数拉取值。因此，如果查询有2个参数，它会在面板上生成2个标签和2个文本框控件。然后我遍历面板上的控件并从每个控件中拉出textbox.text。问题是我找不到如何从文本框控件中获取文本来设置每个参数的值来运行查询。

        Dim CurrentParameters As New List(Of ParameterDT)
    CurrentParameters = BCWorkerParam.GetData(cboQueries.SelectedValue)

    For Each ctl In pnlParameters.Controls
        If TypeOf ctl Is TextBox Then
            If CurrentParameters.Count > 0 Then

                CurrentParameters.Item(0).DataValue = ""

            End If
        End If
    Next

这里的想法是这样的，我在CurrentParameters中有我的查询参数列表。然后我循环遍历面板上的控件，对于找到的每个文本框，我将参数值设置为此行所声明的textbox.text CurrentParameters.Item(0).DataValue = ""其中""需要是当前找到的文本框控件文本。

如果还有其他方法可以做到这一点，请随时向我提出想法。我认为这将起作用是因为即使我使用索引将控件与参数匹配，它也会创建基于每个参数的控件，因此它们应该同步。

好吧我给出了建议，下面的代码是在面板上生成控件的原因。我添加了.Tag碎片，其余的都是如上所述。

'Generate query parameters
        Dim CurrentTopPosition As Integer = 10
        For Each param In Parameters

            pnlParameters.AutoSize = True
            Dim lblParam As New Label

            lblParam.Text = param.DisplayName
            lblParam.TextAlign = ContentAlignment.MiddleRight
            lblParam.Top = CurrentTopPosition
            lblParam.Left = 5
            lblParam.Width = 100
            pnlParameters.Controls.Add(lblParam)

            Dim ctlParam As New Object
            Select Case param.DataType
                Case "String"
                    ctlParam = New TextBox
                    ctlParam.tag = param
                Case "DateTime"
                    ctlParam = New DateTimePicker
                    ctlParam.tag = param
                Case "Integer"
                    ctlParam = New TextBox
                    ctlParam.tag = param
                Case "Double"
                    ctlParam = New TextBox
                    ctlParam.tag = param
            End Select
            ctlParam.Top = CurrentTopPosition
            ctlParam.Left = 110
            ctlParam.Width = 150
            ctlParam.Tag = param
            pnlParameters.Controls.Add(ctlParam)
            CurrentTopPosition += 30
        Next

现在，一旦生成了这些控件，我将遍历它们并执行此代码以执行查询。

        Dim CurrentParameters As New List(Of ParameterDT)
    CurrentParameters = BCWorkerParam.GetData(cboQueries.SelectedValue)
    Dim index As Integer = 0
    For Each ctl In pnlParameters.Controls
        If TypeOf ctl Is TextBox Then
            DirectCast(ctl.Tag, ParameterDT).DataValue = ctl.Text
            'CurrentParameters.Item(index).DataValue = ctl.text
            'index += 1
        End If
    Next

Answer 1

创建TextBox时，可以使用TextBox的Tag属性来保存每个参数对象：

For Each p As ParameterDT In BCWorkerParam.GetData(cboQueries.SelectedValue)
  Dim txtBox As New TextBox()
  txtBox.Properties = yada-yada-yada
  txtBox.Tag = p
  pnlParameters.Controls.Add(txtBox)
Next

然后，当您需要阅读这些值时，您可以尝试这样的事情：

For Each txtBox As TextBox In pnlParameters.Controls.OfType(Of Textbox)()
  DirectCast(txtBox.Tag, ParameterDT).DataValue = txtBox.Text
Next

如何在winform的面板上检索找到的控件的值？

1 个答案: