| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]inputvalue (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125005) |
| -- 作者：maomaoxw -- 发布时间：2018/9/18 10:45:00 -- [求助]inputvalue inputvalue输入框，有没有办法给输入框设置一个默认值？ 比如： dim d as date if inputvalue（d，“日期”，“请输入日期”） then messagebox.show（d） endif
执行时，输入框中默认显示的是“0001-01-01”，我希望默认显示系统当前日期或者其他，能实现吗？
|
| -- 作者：maomaoxw -- 发布时间：2018/9/18 11:15:00 -- 还是自我解答吧！ dim d as date=date.today if inputvalue（d，“日期”，“请输入日期”） then messagebox.show（d） endif |
| -- 作者：有点甜 -- 发布时间：2018/9/18 11:19:00 -- Dim d As Date = Date.Today If inputvalue(d,"日期","请输入日期") Then |