Exit For If thextbox null

我想解决我的项目的下一个循环（退出），我有30个文本框，但有时你不需要填充每个文本框，如果文本框是空白的，系统会将其设置为零，影响我们的图表结果。（我不想在图表上看到零点）Exit For If thextbox null

我以为我可以使用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

来源

2017-02-11 emraharslan

你不需要存在的循环，但继续你的循环，如果给定的文本框为空，这样的事情：

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

来源

2017-02-11 15:12:57 andrews

感谢安德鲁斯，我了解它的工作好，但我有一个问题，我有16个系列，我想看到的只有六个图表系列，但我选择6个系列中，我看到的系列7 x轴0但y axsis有值，我怎样才能解决这个问题？ ChartControl3.Series（“Series 1”）。Points.Add（New SeriesPoint（Val（txt.text），Hız1）） – emraharslan

@emraharslan ummm我可能需要查看图表的HTML标记。我们开工吧。如果我的答案帮助你解决了当前的问题，请接受它（复选框左下方的向下箭头）。然后用图表标记和你得到的截图发表另一个问题。我会尽力帮助你。当几个问题混合在一起时，SO不喜欢。 – andrews

@emraharslan我在'[devexpress]'标签下看不到您的新问题。你打算很快发布吗？ – andrews

Exit For If thextbox null

回答

相关问题