- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 如何把内容 在网页控件上显示出来 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119370)
-- 发布时间：2018/5/23 17:39:00
-- [求助] 如何把内容 在网页控件上显示出来
<html>
<head>
<meta http-equiv="Content-Language" c>
<meta http-equiv="Content-Type" c>
<title>已经为你准备了新版本</title>
<meta name="Microsoft Theme" c>
</head>
<body>
<p align="center"><b><font size="6">已经为你准备了新版本:4.2.1.10</font></b></p>
<p> </p>
<p><font size="4"><b>一、修改BUG内容</b></font></p>
<blockquote>
<p><font size="4"><b>1、修正《库存订单》中统计汇总统计售后服务部仓位</b></font></p>
<p><font size="4"><b>2、修改《成品入仓总表》中单击清空文本框内容</b></font></p>
<p><font size="4"><b>3、修改《BOM》中删除BOM异常问题，修正部分BUG</b></font></p>
</blockquote>
<p><font size="4"><b>二、增加、删除功能</b></font></p>
<p> 1、本次无增加和删除功能</p>
<p> </p>
</body>
</html>
-- 发布时间：2018/5/23 17:52:00
--
方法一：保存为 test.htm，然后webbrowser显示此页面；
方法二：修改属性，如
Dim web = e.form.controls("webbrowser1").basecontrol
web.documenttext = "<html><body><img width=\'100%\' height=\'100%\' src=\'http://image.sinajs.cn/newchart/daily/n/sh601006.gif\' /></body></html>"
-- 发布时间：2018/5/24 11:23:00
--
老师，以下是网页代码，如何可以做得到在网页上输入想要的内容，并把内容保存在表中，
选择不同的行后可以又可以将数据填入表格内。
<html><head><meta http-equiv="Content-Language" c><meta http-equiv="Content-Type" c><title>样板跟踪单</title><meta name="Microsoft Theme" c></head><body><div align="center"><table border="0" cellpadding="0" cellspacing="0" width="1695" height="963"><tr><td valign="top"> </td><td valign="top" height="60"><p align="center"><font size="9">样板跟踪单</font></td></tr><tr><td valign="top" width="128"> </td><td valign="top" height="911" width="1567"><table border="1" width="100%" height="726"><tr><td width="7%" height="32">申请部门</td><td height="32" width="23%"> </td><td width="7%" height="32">生产单号</td><td height="32" width="22%"> </td><td height="32" width="6%">电路方案</td><td height="32" width="32%"> </td></tr><tr><td width="7%" height="32">申请人</td><td height="32" width="23%"> </td><td width="7%" height="32">完成日期</td><td height="32" width="22%"> </td><td height="32" width="6%">高频方式</td><td height="32" width="32%"> </td></tr><tr><td width="7%" height="32">我司型号</td><td height="32" width="23%"> </td><td width="7%" height="32">数量</td><td height="32" width="22%"> </td><td height="32" width="6%">申请编号</td><td height="32" width="32%"> </td></tr><tr><td width="7%" height="32">功率</td><td height="32" width="23%"> </td><td width="7%" height="32">环保要求</td><td height="32" width="22%"> </td><td height="32" width="6%">客户编号 </td><td height="32" width="32%"> </td></tr><tr><td width="7%">频率</td><td height="32" width="23%"> </td><td width="7%">客户型号</td><td height="32" width="22%"> </td><td height="32" width="6%">申请日期</td><td height="32" width="32%"> </td></tr><tr><td colspan="6" height="44"><p align="center"><b><font size="6">详细要求</font></b></td></tr><tr><td colspan="6"> </td></tr><tr><td width="7%">制表</td><td height="32" width="23%"> </td><td width="7%">审核</td><td height="32" width="22%"> </td><td height="32" width="6%">核准</td><td height="32" width="32%"> </td></tr></table></td></tr></table></div></body></html>
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目17.rar |
-- 发布时间：2018/5/24 11:42:00
--
1、可以用html编辑器
| 下载信息 [文件大小：538.0 KB 下载次数：11] | |
 点击浏览该文件:html编辑器_例子.zip |
2、如果你是想做一个表格，里面输入内容，把各个单元格的值保存到foxtable各个列里面去这种功能，参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101510&skin=0
-- 发布时间：2018/5/24 14:08:00
--
老师，两个都不是我想要的， 我想要的是做一个表格，可以实现两点功能：
1、用户输入完成后，点击保存，将所有的内容（含网页代码） 保存至Foxtable中的内容列里去。
2、Table 单元格发生变化时，在网页浏览器中显示出内容列的代码。
此主题相关图片如下：无标题.png
-- 发布时间：2018/5/24 14:33:00
--
如果要输入内容，你表格里面加入input元素啊，类似
<input name=\'cp\' id=\'cp\'>
在foxtable通过webbrowser读取内容，参考
Dim web = e.form.controls("webbrowser1").basecontrol
Dim cp = web.Document.GetElementById("cp")
msgbox(cp.value)
msgbox(cp.getattribute("value"))
-- 发布时间：2018/5/24 15:24:00
--
如果加入INput元素，像我那么多格， 是不是也要逐个逐个的读取和写入呀？
如果是的话，如何做到遍历所有Input元素？
-- 发布时间：2018/5/24 16:29:00
--
如果加入INput元素，像我那么多格， 是不是也要逐个逐个的读取和写入呀？
如果是的话，如何做到遍历所有Input元素？
Dim web = e.form.controls("webbrowser1").basecontrol
Dim inputs = web.Document.GetElementsByTagName("input")
for each input as object in inputs
msgbox(input.value)
next