Foxtable(狐表)用户栏目专家坐堂 → AppendCookie问题


  共有3654人关注过本帖树形打印复制链接

主题:AppendCookie问题

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106610 积分:542227 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/21 17:07:00 [显示全部帖子]

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("日期","日&emsp;&emsp;期","date").Value = dr("日期")


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106610 积分:542227 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/21 17:16:00 [显示全部帖子]

方法1、http://www.foxtable.com/mobilehelp/topics/0083.htm
2、http://www.foxtable.com/mobilehelp/topics/0104.htm

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106610 积分:542227 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/22 9:09:00 [显示全部帖子]

js在哪?

 回到顶部