专家坐堂-字符赋值问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字符赋值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149934)

--  作者：otterlike
--  发布时间：2020/5/15 16:26:00
--  字符赋值问题

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

各位老师，麻烦帮忙看看，我用数据测试，总是只显示一个结果“测算日期内,库存状态正常!”，很明显应该是赋值不成功，麻烦看看是哪里出问题了，谢谢

--  作者：linyunu1
--  发布时间：2020/5/15 16:46:00
--

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

--  作者：otterlike
--  发布时间：2020/5/15 16:50:00
--
感谢老师，调整一下顺序就行了