参考：
http://www.foxtable.com/mobilehelp/topics/0013.htm
保存为一个网页文件即可
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>")
FileSys.WriteAllText("C:\data\index.html", sb.tostring, True)
加好友 
发短信
Post By：2020/4/14 11:19:00 [显示全部帖子]
