移动开发，怎么用按钮填写日期输入框里的内容？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：微信图片_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编辑过]

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

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

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编辑过]

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

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

把 * 换乘 % ，就可以了

主题：移动开发，怎么用按钮填写日期输入框里的内容？