|
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
| 
加好友 
发短信
Post By：2018/7/11 18:13:00 [显示全部帖子]
