Foxtable(狐表)用户栏目专家坐堂 → 2020年3月31日重大更新,可以直接用Excel设计网页,再也不用烦恼复杂网页的设计了


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

主题:2020年3月31日重大更新,可以直接用Excel设计网页,再也不用烦恼复杂网页的设计了

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
2020年3月31日重大更新,可以直接用Excel设计网页,再也不用烦恼复杂网页的设计了  发帖心情 Post By:2020/3/31 8:22:00 [只看该作者]

下面是一个例子,几行代码就行了。

示例一


1、首先打开CaseStudy目录下的示例文件"Excel报表.foxdb"文件。


2、将HttpRequest事件代码设置为:


If e.Path.StartsWith("Reports\")
    e.ResponseEncoding = "gb2312"
    Select Case e.Path
        Case  "Reports\ckd.htm"
            Dim Book As New XLS.Book(ProjectPath & 
"Attachments\
出库单.xls")
            e.WriteBookAsHTML(Book)
       Case  "Reports\jianli.htm"
            Dim Book As New XLS.Book(ProjectPath & 
"Attachments\
资料卡.xls")
            e.WriteBookAsHTML(Book)
        Case Else
            e.AsReportServer("Reports\")
    
End Select
End
 If


3、在命令窗口执行:

HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer
.Start()


现在在浏览器输入网址:


http://127.0.0.1/Reports/ckd.htm


即可得到网页:


图片点击可在新窗口打开查看


输入地址:


http://127.0.0.1/Reports/jianli.htm


即可得到网页:


图片点击可在新窗口打开查看


示例二


更多的时候,我们需要根据客户端提交的访问请求,从后台提起对应的数据生成Excel报表并转成网页,例如我们将HttpRequest事件代码改为:


If e.Path.StartsWith("Reports\")
    e.ResponseEncoding = "gb2312"
    Select Case e.Path
        Case  "Reports\jianli.htm"
            Dim Book As New XLS.Book(ProjectPath & 
"Attachments\
资料卡.xls")
            book.AddDataTable(
"
员工","","Sel ect * f rom {员工} where 姓名 = '" & e.GetValues("nm") & "'")
            e.WriteBookAsHTML(Book)
        Case Else
            e.AsReportServer("Reports\")
    
End Select
End
 If


现在输入网址:


http://127.0.0.1/Reports/jianli.htm?nm=张颖


可得到网页:


图片点击可在新窗口打开查看


示例三


还有更强的: 图片点击可在新窗口打开查看


以下内容只有回复后才可以浏览


Foxtable 2020年度春季全部更新说明参考:

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=146106


[此贴子已经被作者于2020/3/31 10:33:10编辑过]

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


加好友 发短信
等级:六尾狐 帖子:1316 积分:9484 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2020/3/31 8:29:00 [只看该作者]

牛的

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


加好友 发短信 一级勋章
等级:版主 帖子:1991 积分:19363 威望:0 精华:20 注册:2008/9/2 10:09:00
  发帖心情 Post By:2020/3/31 8:34:00 [只看该作者]

使劲顶,太赞了!狐狸爸爸辛苦!

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


加好友 发短信
等级:一尾狐 帖子:462 积分:3332 威望:0 精华:0 注册:2016/12/21 22:58:00
  发帖心情 Post By:2020/3/31 8:39:00 [只看该作者]

继续学习

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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/3/31 8:50:00 [只看该作者]

xuexi

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


加好友 发短信
等级:小狐 帖子:373 积分:3107 威望:0 精华:0 注册:2015/1/30 9:47:00
  发帖心情 Post By:2020/3/31 8:50:00 [只看该作者]

就是浏览器输出报表吧

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


加好友 发短信
等级:幼狐 帖子:147 积分:1435 威望:0 精华:0 注册:2011/4/18 9:53:00
  发帖心情 Post By:2020/3/31 8:50:00 [只看该作者]

这个强!!!!!!!!

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


加好友 发短信
等级:幼狐 帖子:51 积分:1223 威望:0 精华:0 注册:2013/7/23 19:24:00
  发帖心情 Post By:2020/3/31 8:51:00 [只看该作者]

看看,学习下

 回到顶部
帅哥哟,离线,有人找我吗?
绿火柴
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:4464 威望:0 精华:0 注册:2014/3/4 21:20:00
  发帖心情 Post By:2020/3/31 8:51:00 [只看该作者]

越来越喜欢狐表了,啦啦啦~~~

 回到顶部
帅哥哟,离线,有人找我吗?
Mr-sky
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:68 积分:543 威望:0 精华:0 注册:2019/8/25 11:09:00
  发帖心情 Post By:2020/3/31 8:52:00 [只看该作者]

学习

 回到顶部
总数 213 1 2 3 4 5 6 7 8 9 10 下一页 ..22