Dim t As Table = Tables("临时表") '定义一个变量t引用数据表
Dim tsh2 As WinForm.Label = e.Form.Controls("提示")
Dim gw As String
Dim gd As String
For a As Integer = 0 To t.Rows.Count - 1
If t.Rows(a)("实际库存量") > t.Rows(a)("高位库存") Then
gw = "预计" & t.Rows(a)("日期") & "日将无罐容卸油!"
End If
Exit For
Next
For b As Integer = 0 To t.Rows.Count - 1
If t.Rows(b)("实际库存量") < t.Rows(b)("罐底量") Then
gd = "预计" & t.Rows(b)("日期") & "日将无油可发!"
End If
Exit For
Next
If gw = "" And gd = "" Then
tsh2.Text = "测算日期内,库存状态正常!"
Else
tsh2.Text = gw & gd
End If
各位老师，麻烦帮忙看看，我用数据测试，总是只显示一个结果“测算日期内,库存状态正常!”，很明显应该是赋值不成功，麻烦看看是哪里出问题了，谢谢
加好友 
发短信
Post By：2020/5/15 16:26:00 [只看该作者]
