Vb.net 如果xtbox为空,则退出

Vb.net 如果xtbox为空,则退出,vb.net,devexpress,Vb.net,Devexpress,我正在尝试解决我的项目的下一个循环(退出),我有30个文本框,但有时你不需要填充每个文本框,如果文本框为空,系统会将其置为零,并影响图表结果。(我不想看到图表上的零点) 我想我们可以使用exit,但现在我在图表上看不到任何内容,请帮助我如何计算只填充的文本框 在这里查看我的代码 Dim Guc (59) as decimal Guc(1) = Val(TextBox5.Text)*Val(Textbox98.Text) . . . Guc(59) = Val(TextBox42.Text)*

我正在尝试解决我的项目的下一个循环(退出),我有30个文本框,但有时你不需要填充每个文本框,如果文本框为空,系统会将其置为零,并影响图表结果。(我不想看到图表上的零点)

我想我们可以使用exit,但现在我在图表上看不到任何内容,请帮助我如何计算只填充的文本框

在这里查看我的代码

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

您不需要存在循环,但如果给定的文本框为null,则需要继续循环,如下所示:

...
    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

谢谢Andrews,我知道它也能工作,但我有一个问题我有16个系列,我想在图表中只看到6个系列,但我选择了6个系列,我看到系列7 x轴0但y轴有值,我如何解决这个问题?ChartControl3.Series(“Series 1”).Points.Add(新的SeriesPoint(Val(txt.text),Hız1))@emraharslan-ummm我可能需要查看图表的HTML标记。让我们这样做。如果我的回答帮助你解决了当前的问题,请接受它(下箭头下方左边的复选框)。然后发布另一个带有图表标记的问题和你得到的屏幕截图。然后我会尽力帮助你。所以不喜欢几个问题混在一起。@emraharslan我在
[devexpress]
标签下看不到你的新问题。你会很快发布吗?请看,我提交了另一个问题,与图表和报告有关