实际完成时间 死活不会变。。。

      With  .AddSwitch("是否完成","是否完成")
              .value = pr("是否完成")
              .Attribute = "on change=\'calc()\'"         on  change  分开是因为论坛限制
     End With

wb.AppendHTML("<script src=\'./lib/order.js\'></script>")  \'引入脚本文件
e.WriteString(wb.Build) \'生成网页

js 代码

 function calc(){
    document.getElementById("实际完成时间").value = "2017-04-28";
 }

调试了一下，代码没问题。

你用谷歌浏览器调试的时候，调出开发者工具，看看js代码是否报什么错？

http://www.foxtable.com/mobilehelp/scr/0244.htm

一般是你的js有错：1、你保存js文件的时候，没有保存为utf-8编码的文件；2、你的【实际完成时间】写错了，你的页面没有那个ID的值；3、你可以尝试改成英文id