Foxtable(狐表)用户栏目专家坐堂 → 移动开发,怎么用按钮填写日期输入框里的内容?


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

主题:移动开发,怎么用按钮填写日期输入框里的内容?

帅哥哟,离线,有人找我吗?
zhchling
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:386 积分:3904 威望:0 精华:0 注册:2012/2/9 20:09:00
移动开发,怎么用按钮填写日期输入框里的内容?  发帖心情 Post By:2017/9/8 13:55:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20170908135416.jpg
图片点击可在新窗口打开查看





Dim wb As New WeUI
Select Case e.Path
    Case "filter.htm"
        wb.AddForm("","form1","list.htm")
        With wb.AddInputGroup("form1","ipg1","数据筛选")
            .Addinput("product","姓名或手机","text")
            .AddInput("startdate","开始日期","date").Value = Format(Date.Today,"yyyy-MM-dd")
            .AddInput("enddate","结束日期","date").Value = Format(Date.Today.AddDays(1),"yyyy-MM-dd")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With

 ' Dim wb1 As New weui
   '     wb1.AddForm("","form1","test.htm")
        With wb.AddButtonGroup("form1","btg11",True)  '垂直排列
            .Add("btn1", "昨天")

   With .Add("btn13", "今天", "button") '  点击后填入上面的日期输入框
                 ????代码
                End With

            .Add("btn5", "明天", "", "http://www.foxtable.com") '单击这个按钮可以打开foxtable主页
        End With
        With wb.AddButtonGroup("form1","btg2", False)  '水平排列
            .Add("btn6", "前一天")
            .Add("btn7", "后一天").Kind = 2
        End With
        With wb.AddButtonGroup("form1","btg3", False)
            .Add("btn8", "按钮").Kind = 0
            .Add("btn9", "按钮").Kind = 1
        End With
   '     e.WriteString(wb1.Build) '生成网页



[此贴子已经被作者于2017/9/8 13:58:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/8 14:20:00 [只看该作者]

        With .Add("btn13", "今天", "button") '  点击后填入上面的日期输入框
            .Attribute = "onclick=""startdate.value='" & Date.today & "'"""
        End With

[此贴子已经被作者于2017/9/8 15:51:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zhchling
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:386 积分:3904 威望:0 精华:0 注册:2012/2/9 20:09:00
  发帖心情 Post By:2017/9/8 15:01:00 [只看该作者]

 .AddInput("startdate","开始日期","date").Value      

怎么用按钮代码,把 上面的指定的某个日期输入框里面 填写日期。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/8 15:52:00 [只看该作者]

        With .Add("btn13", "今天", "button") '  点击后填入上面的日期输入框
            .Attribute = "onclick=""startdate.value='" & Date.today & "'"""
        End With


 回到顶部
帅哥哟,离线,有人找我吗?
zhchling
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:386 积分:3904 威望:0 精华:0 注册:2012/2/9 20:09:00
  发帖心情 Post By:2017/9/9 9:33:00 [只看该作者]

        With wb.AddButtonGroup("form1","btg3", False)
            With  .Add("btn6", "前一天","button")   '设置startdate为今天的日期
                .Attribute = " &  startdate.adddays(1) & "'"""  

           End With


红色部分提示没有声明 名称   startdate

1、语法错在哪里?  这些语法去哪部分学习?

2、设置完startdate 里面的值,之后 ,自动执行 下面这个筛选按钮, 应该怎么写代码?
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "筛选", "submit")
        End With
        
[此贴子已经被作者于2017/9/9 9:36:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110597 积分:562881 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/9/9 9:56:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zhchling
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:386 积分:3904 威望:0 精华:0 注册:2012/2/9 20:09:00
  发帖心情 Post By:2017/9/9 13:19:00 [只看该作者]

select *  表名  where  shouji like '*138*' 


我想在移动版里 筛选手机号码包括138的所有用户, 怎么筛选不出来呢? 是不是语法上和非移动版的不同?

 回到顶部
帅哥哟,离线,有人找我吗?
zhchling
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:386 积分:3904 威望:0 精华:0 注册:2012/2/9 20:09:00
  发帖心情 Post By:2017/9/9 13:28:00 [只看该作者]

把 *  换乘  % , 就可以了

 回到顶部