If dj.DayOfWeek > 0 Then
If Format(Date.now, "HHmm") <= Functions.Execute("Get","设置",0) Then
.AddSwitch(dj & ":" & "c2","中餐",dr4("c2")).Value = "True"
.AddSwitch(dj & ":" & "c3","晚餐",dr4("c3")).Value = "True"
Else
If Format(Date.now, "HHmm") <= Functions.Execute("Get","设置",1) Then
Dim bc2 As String = Functions.Execute("bc",uid,"bc2")
With .AddInput("zc1","中餐","text")
If bc2 > "" Then
.Value = bc2
Else
.Value = "没有相关数据"
End If
.Readonly= True
End With
.AddHiddenValue(dj & ":" & "c2",dr4("c2"))
.AddSwitch(dj & ":" & "c3","晚餐",dr4("c3")).Value = "True"
Else
.AddHiddenValue(dj & ":" & "c2",dr4("c2"))
.AddHiddenValue(dj & ":" & "c3",dr4("c3"))
Dim bc2 As String = Functions.Execute("bc",uid,"bc2")
With .AddInput("zc2","中餐","text")
If bc2 > "" Then
.Value = bc2
Else
.Value = "没有相关数据"
End If
.Readonly= True
End With
Dim bc3 As String = Functions.Execute("bc",uid,"bc3")
With .AddInput("wc1","晚餐","text")
If bc2 > "" Then
.Value = bc3
Else
.Value = "没有相关数据"
End If
.Readonly= True
End With
End If
End If
Else
.AddHiddenValue(dj & ":" & "c2",dr4("c2"))
.AddHiddenValue(dj & ":" & "c3",dr4("c3"))
With .AddInput("zc2","中餐","text")
.Value = "今天休息"
.Readonly= True
End With
With .AddInput("wc1","晚餐","text")
.Value = "周末愉快"
.Readonly= True
End With
End If
加好友 
发短信
Post By：2018/9/4 11:22:00 [只看该作者]
