Dim e As object = args(0)
Dim wb As New weui
wb.AddForm("","form1","Shigong_daily_filter.htm")
With wb.AddInputGroup("form1","ipg1","数据筛选") 'ParentID 父容器的ID,如果是顶层对象,设置为""即可. ID 分组ID. Text 可选参数,用于指定分组标题.
.AddInput("startdate","开始日期","date").Placeholder = "请选择要查询的开始日期"
.AddInput("enddate","结束日期","date").Placeholder = "请选择要查询的结束日期"
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "首页", "", "default.htm")
.Add("btn2", "筛选", "submit")
.Add("btn3", "新增", "", "Shigong_daily_add.htm")
End With
e.WriteString(wb.Build)
点击筛选跳转到第二个页面:Shigong_daily_filter.htm,代码如下,通过Cookie怎么传值,第二个页面的日期,按照第一个页面的日期来筛选数据
Dim e As object = args(0)
Dim wb As New weui
wb.AddForm("","form1","Shigong_daily_filter.htm")
Dim drs As List(of DataRow) = DataTables("施工日志").SQLSelect("项目名称 = '" & _Userxmmc & "'And 日期>= '" & e.PostValues("startdate") & "' And 日期 <= '" & e.PostValues("enddate") & "'","","_Identify")
For Each dr As DataRow In drs
With wb.AddInputGroup("form1",dr("_Identify"),"施工日志信息")
.AddInput("日期","日  期","date").Value = dr("日期")