Foxtable(狐表)用户栏目专家坐堂 → 关于web输入框自动填写的问题


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

主题:关于web输入框自动填写的问题

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


加好友 发短信
等级:四尾狐 帖子:989 积分:8827 威望:0 精华:0 注册:2016/4/10 14:33:00
关于web输入框自动填写的问题  发帖心情 Post By:2023/3/3 19:22:00 [只看该作者]

Dim sb As New StringBuilder
sb.AppendLine("<form enctype='multipart/form-data' method='post' id='form1' name='form1'>")
sb
.AppendLine("产品: < input name='cp' id='cp'><br/><br/>")
sb
.AppendLine("客户: < input name='kh' id='kh'><br/><br/>")
sb
.AppendLine("雇员: < input name='gy' id='gy'><br/><br/>")
sb
.AppendLine("单价: < input type='number' name='dj' id='dj'><br/><br/>")
sb
.AppendLine("折扣: < input type='number' name='zk' id='zk' min='0' max='0.15' step='0.01'><br/><br/>")
sb
.AppendLine("数量: < input type='number' name='sl' id='sl'><br/><br/>")
sb
.AppendLine("日期: < input type='date' name='rq' id='rq'><br/><br/>")
sb
.AppendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
sb
.AppendLine("</form>")
e
.WriteString(sb.ToString)
这个如何实现日期自动填写为今天?

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


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

sb.AppendLine("日期: < input type='date' name='rq' id='rq' value='" & format(date.today,"yyyy-MM-dd") & "'><br/><br/>")

 回到顶部