Foxtable(狐表)用户栏目专家坐堂 → [求助]用HTML生成网页的关键字获取


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

主题:[求助]用HTML生成网页的关键字获取

美女呀,离线,留言给我吧!
sweet果果
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:142 威望:0 精华:0 注册:2020/12/12 15:40:00
[求助]用HTML生成网页的关键字获取  发帖心情 Post By:2020/12/12 18:26:00 [只看该作者]

用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编辑过]

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


加好友 发短信
等级:超级版主 帖子:107846 积分:548581 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/13 20:15:00 [只看该作者]

dim r as row = tables("a").rows(0)
sb.AppendLine(r("单位名称") & ": <input name='cp' id='cp'><br/><br/>")

 回到顶部