以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间自动输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143976)

--  作者:qqhealth
--  发布时间:2019/12/7 22:27:00
--  时间自动输入
老师您好,数据库中时间格式为time,手机端自动输入时间格式也为time,时间不能实现自动输入,其他信息可以自动输入,代码如下,不知怎么改?谢谢!
With .AddSelect("分支机构","分支机构","")
            .Attribute = "" \'调用js函数
        End With
        .AddInput("开始时间","开始时间","time")
        .AddInput("结束时间","结束时间","time")
        .AddInput("停业日期","停业日期","text")
        .AddInput("报告时效","报告时效","text")
        .AddInput("体检地址","体检地址","text")


图片点击可在新窗口打开查看此主题相关图片如下:批注 2019-12-07 222410.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:批注 2019-12-07 222447.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/12/7 22:27:20编辑过]

--  作者:有点蓝
--  发布时间:2019/12/8 21:11:00
--  
我测试没有问题。给表格赋值代码看看
--  作者:qqhealth
--  发布时间:2019/12/8 21:44:00
--  
老师您好,完整代码见附件,在体检预约过程中,如果身份证号有误或电话号码位数有错误,或者必须输入列未输入则报错点击返回,返回后原来录入的信息没有了。想保留原来已经录入的信息做修改。谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:保留原有信息.txt


[此贴子已经被作者于2019/12/8 21:45:04编辑过]

--  作者:有点蓝
--  发布时间:2019/12/8 21:50:00
--  
您是指点击返回后有些信息不能保留?这个暂时没有办法解决
--  作者:qqhealth
--  发布时间:2019/12/8 22:02:00
--  
老师您好,给时间直接赋值如下,但是保存后原有的实际的时间值带不过来。选择医疗机构前后的截图如下。谢谢!
.AddInput("开始时间","开始时间","time").value = Format(Date.Now,"HH:mm")
 .AddInput("结束时间","结束时间","time").value = Format(Date.Now,"HH:mm")


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


--  作者:qqhealth
--  发布时间:2019/12/8 22:04:00
--  
是的,原来的录入的信息没法保留,需要重新再输入。谢谢!