- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教如何直接将窗口中的三个Table保存为一个网页 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82475)
-- 发布时间：2016/3/18 15:08:00
-- 请教如何直接将窗口中的三个Table保存为一个网页
我窗口中有三个关联表,如表A,表B,表C.
如何将这三个表的数据按从上到下的顺序保存为一个网页文件
-- 发布时间：2016/3/18 15:18:00
--
分别生成3个网页，然后通过操作文件的方法把其中2个网页的table表格复制到另外一个的table后面
Tables("表A").SaveHTM("F:\\表A.html")
-- 发布时间：2016/3/18 15:35:00
--
我想要的是三个表格在一个网页里,我查询的时候只要一个文件名.
-- 发布时间：2016/3/18 16:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目189.table |
另：一个数据库中，不应该有三个结构相同的表，如果存在，说明设计可能有问题。
-- 发布时间：2016/3/18 20:05:00
-- 谢谢老师
,是我没有完全表达清楚.
现更进一步说明
我窗口中有三个关联表,分别是:询价单,计算表,化学成份
现在是:如何将这三个表的数据生成三个表格文件,然后按从上到下的顺序排列并保存为一个网页文件.
-- 发布时间：2016/3/19 8:55:00
--
看2楼，分别生成3个网页，然后再合并
-- 发布时间：2016/3/19 12:39:00
-- 关键是合并
合并网页文件的代码怎么写呢
-- 发布时间：2016/3/19 14:16:00
--
Tables("表A").SaveHTM("F:\\表A.html")
Tables("表B").SaveHTM("F:\\表B.html")
Tables("表C").SaveHTM("F:\\表C.html")
Dim a As String = FileSys.ReadAllText("F:\\表A.html")
Dim b As String = FileSys.ReadAllText("F:\\表B.html")
Dim c As String = FileSys.ReadAllText("F:\\表C.html")
Dim ai As Integer = a.IndexOf("</table>") + 8
Dim bi As Integer = b.IndexOf("<table")
Dim bj As Integer = b.IndexOf("</table>") + 8
Dim ci As Integer = c.IndexOf("<table")
Dim cj As Integer = c.IndexOf("</table>") + 8
Dim bl As Integer = bj-bi
a = a.Insert(ai,b.SubString(bi,bl))
a = a.Insert(ai+bl,c.SubString(ci,cj-ci))
\'
FileSys.WriteAllText("F:\\C.html", a, False)
-- 发布时间：2016/3/19 15:02:00
--
谢谢