以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断label显示和不显示的方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185365)
--  作者：min-fox
--  发布时间：2023/2/19 16:03:00
--  判断label显示和不显示的方法

在窗口的AfterLoad中，想实现的功能是：当销售列表中的当前行的 “数量”列和“金额”列不为空值

窗口的控件label1，显示为：卖出数量xx，卖出金额：xxx

如是空值，则不显示。请改一下下面的代码。

Dim r1 As Row = Tables("销售列表").current
If r1.IsNull("数量") OrElse r1.IsNull("金额") Then \'如果数量或单价为空
    Forms("label1").Visible = False
   Else
    e.form.controls("label1").text = "卖出数量：" & r1("数量") & "，卖出金额：" & r1("金额")       

 End If

 
--  作者：有点蓝
--  发布时间：2023/2/19 20:32:00
--  

If r1.IsNull("数量") OrElse r1.IsNull("金额") Then \'如果数量或单价为空
    e.form.controls("label1").Visible = False
   Else
    e.form.controls("label1").text = "卖出数量：" & r1("数量") & "，卖出金额：" & r1("金额")       

 End If