Dim wb As New WeUI
wb.AddForm("","form1","dclb.htm")
With wb.AddListGroup(" ", "lsg1","")
With wb.AddInputGroup("","ipg1","菜单供应设置")
Dim rq1 As Date
rq1 = .AddInput("rq","日期","date").Value
With .AddInput("rq","日期","date")
.Enabled = False
.Value = Format(rq1,"dddd")
End With
With .AddInput("xq","星期","text")
.Enabled = False
.Value = Format(rq1,"dddd")
End With
With .AddInput("djsj","登记时间","datetime-local")
.value = Format(Date.Now,"HH:mm")
.Min = "08:00" '输入的事件必须在8:00到12:00之间
.Max = "12:00"
End With
.AddInput("zc","早餐","text")
.AddInput("wc","午餐","text")
.AddInput("sf","晚餐","text")
End With
End With
With wb.AddArticle("","ar1")
.AddTitle("h1","备注")
.AddContent("设置每天供应的菜品,需每天设置.")
End With
e.WriteString(wb.Build)
加好友 
发短信
Post By：2018/7/16 20:43:00 [只看该作者]
