Question

如果tb.text> 4，那么该如何用逗号放置该文本框的所有值？示例：假设TxtConsecutiveCount1.text = 5，txtconsecutivecount2.text = 6，txtconsecutivecount3.text = 7，现在我要召开5 + 6 + 7会议，它向我展示了一个单值，表示计算3个值。我不想开会，我想在文本框中显示5、6、7的值。

因此在此代码中，textbox16.text =必须包含所有逗号分隔的值，而不是计算得出的。

Dim TB As TextBox
For i As Integer = 1 To Val(TxtConsecutiveNumber2Count.Text)
    TB = Me.Controls.Find("TxtConsecutiveCount" & i, True).FirstOrDefault
    TB.Text = Val(TB.Text) - Val(1)
    If TB.Text >= 4 Then
        TB.BackColor = Color.Red
        TextBox16.Text = TextBox16.Text + TB.Text
    End If
    If TB.Text = ("0") Then
        TB.BackColor = Color.LightSalmon
    End If

Answer 1

我不确定您如何实现此目标，但是以下代码可以工作，并且在5,6,7中产生TextBox16的值，只要有3个文本框，其值分别为5、6和7在他们里面。此外，我不确定为什么您要从TB中减去1，但是嘿，这是您的代码。

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim TB As TextBox
    For i As Integer = 1 To 3
        TB = CType(Controls.Find("TxtConsecutiveCount" & i, True).FirstOrDefault, TextBox)
        'TB.Text = (TB.Text) - 1
        If cdbl(TB.Text) >= 4 Then
            TB.BackColor = Color.Red
            TextBox16.Text += TB.Text & (",")
        End If
        If TB.Text = ("0") Then
            TB.BackColor = Color.LightSalmon
        End If
    Next
    TextBox16.Text = TextBox16.Text.Remove(TextBox16.TextLength - 1)
End Sub

请注意，在您的代码中，循环中文本框的名称不匹配。 TxtConsecutiveCount" & i永远找不到TxtConsecutiveNumber2Count。

如何控制文本框并在另一个文本框中添加逗号值

1 个答案: