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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有1909人关注过本帖树形打印复制链接主题：[求助]

沪上游客

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00

[求助]

Post By：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") 应该怎么指定窗口？

谢谢老师！

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

沪上游客

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00

Post By：2018/7/11 18:36:00 [只看该作者]

谢谢老师！已解决。

下一主题 >> << 上一主题

主题：[求助]