以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]用HTML生成网页的关键字获取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159072)

--  作者：sweet果果 --  发布时间：2020/12/12 18:26:00 --  [求助]用HTML生成网页的关键字获取 用HTML生成网页的代码中，产品、客户、雇员等名称都是提前定义好的， 能不能由表的一列取值自动生成?比如表A有一个列名为“单位名称”的列，该列的1-6行内容依次是：企业单位A，企业单位B，企业单位C，企业单位D，企业单位E，企业单位F； 能不能由1-6行的内容取代“产品、客户、雇员。。。”等名称呢？ 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) [此贴子已经被作者于2020/12/12 18:25:46编辑过]

--  作者：有点蓝 --  发布时间：2020/12/13 20:15:00 --   dim r as row = tables("a").rows(0) sb.AppendLine(r("单位名称") & ": <input name=\'cp\' id=\'cp\'><br/><br/>")