Question

我正在尝试为我的项目的下一个循环（退出）解决，我有30个文本框，但有时你不需要填充每个文本框，如果textbox为空，sytem将其设为零，它会影响我们的图表结果。（我不想在图表上看到零点）

我以为我可以使用退出但是现在我在图表上看不到任何内容，请帮助我如何只计算填充的文本框。

请在此处查看我的代码，

Dim Guc (59) as decimal

Guc(1) = Val(TextBox5.Text)*Val(Textbox98.Text)
.
.
.

Guc(59) = Val(TextBox42.Text)*Val(Textbox12.Text)


For i = 1 To 59 Step 2

       Dim txt As TextBox = CType(TabControlPanel1.Controls("TextBoxX" & i), TextBox)

       Hız1 = Val(txt.Text) * 5

       Power1 = guc(i) * 3.14 / (30 * 1000) *2

      ChartControl4.Series("Series 1").Points.Add(New SeriesPoint(Hız1, Power1))


Next

Answer 1

你不需要存在循环但是如果给定的文本框为空则继续你的循环，如下所示：

...
    Dim txt As TextBox = CType(TabControlPanel1.Controls("TextBoxX" & i), TextBox)
    If txt Is Nothing Then Continue For 
...

如果您的文本框没有变为NULL但值为0，则检查0并在值为0时继续：

    Dim txt As TextBox = CType(TabControlPanel1.Controls("TextBoxX" & i), TextBox)
    If Val(txt.Text) = 0 Then Continue For

Continue For会将循环控制切换到下一次迭代，因此您将遍历所有复选框，并且只会向图表中添加非空和非0点。

HTH

如果thextbox为null，则退出

1 个答案: