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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121691)

--  作者：沪上游客
--  发布时间：2018/7/11 17:16:00
--  [求助]

Dim t As Table = Tables("我的工作台")
t.sort = "申请日期"
Dim n As Integer = t.Rows.count
Dim lbl As WinForm.Label
Dim lb2 As WinForm.Label
lb2 = e.Form.Controls("Label2")
lb2.Text = "您的待办事项有" & n & "条"
If n = 0 Then
e.Form.Controls("Label1").Visible = True
lbl = e.Form.Controls("Label1")
lbl.Text = "没有数据"
Else
e.Form.Controls("Label1").Visible = False
End If

老师你好！以上这段代码是在本窗口中按钮设置的，如果我要设置计划管理中，代码应该怎么写？
主要是这个代码  lb2 = e.Form.Controls("Label2") 应该怎么指定窗口？
谢谢老师！

--  作者：有点甜
--  发布时间：2018/7/11 18:13:00
--
Dim frm As WinForm.Form = Forms("窗口1")
If frm.opened Then
    Dim t As Table = Tables("我的工作台")
    t.sort = "申请日期"
    Dim n As Integer = t.Rows.count
    Dim lbl As WinForm.Label
    Dim lb2 As WinForm.Label
    lb2 = frm.Controls("Label2")
    lb2.Text = "您的待办事项有" & n & "条"
    If n = 0 Then
        frm.Controls("Label1").Visible = True
        lbl = frm.Controls("Label1")
        lbl.Text = "没有数据"
    Else
        frm.Controls("Label1").Visible = False
    End If
End If

--  作者：沪上游客
--  发布时间：2018/7/11 18:36:00
--
谢谢老师！已解决。