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)("日期") & "日将无罐容卸油!"
Exit For
End If
Next
For b As Integer = 0 To t.Rows.Count - 1
If t.Rows(b)("实际库存量") < t.Rows(b)("罐底量") Then
gd = "预计" & t.Rows(b)("日期") & "日将无油可发!"
Exit For
End If
Next
If gw = "" And gd = "" Then
tsh2.Text = "测算日期内,库存状态正常!"
Else
tsh2.Text = gw & gd
End If
加好友 
发短信
Post By：2020/5/15 16:46:00 [显示全部帖子]
