以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  小白请教:EXCEL报表如何引用相应内容?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120375)

--  作者:xhydxs
--  发布时间:2018/6/13 20:12:00
--  小白请教:EXCEL报表如何引用相应内容?

如何才能把我“准考证”表里面的相关信息引用到EXCEL报表中,以达到下面这种效果?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180613200553.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180613200946.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/6/13 20:59:24编辑过]

--  作者:有点甜
--  发布时间:2018/6/13 22:49:00
--  

分组设计excel报表

 

http://www.foxtable.com/webhelp/scr/1542.htm

 

如果要实现 20180016--20180030 这种效果,就要编程处理了

 

http://www.foxtable.com/webhelp/scr/1953.htm

 


--  作者:xhydxs
--  发布时间:2018/6/13 22:59:00
--  
以下是引用有点甜在2018/6/13 22:49:00的发言:

分组设计excel报表

 

http://www.foxtable.com/webhelp/scr/1542.htm

 

如果要实现 20180016--20180030 这种效果,就要编程处理了

 

http://www.foxtable.com/webhelp/scr/1953.htm

 

没怎么看明白,具体怎么操作,请指教?

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:制作准考证.rar


[此贴子已经被作者于2018/6/13 23:12:21编辑过]

--  作者:有点甜
--  发布时间:2018/6/13 23:56:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:制作准考证.zip


--  作者:xhydxs
--  发布时间:2018/6/14 0:26:00
--  
以下是引用有点甜在2018/6/13 23:56:00的发言:
 下载信息  [文件大小:1.1 MB  下载次数:0]
图片点击可在新窗口打开查看点击浏览该文件:制作准考证.zip

非常感谢!非常感谢!非常感谢!


--  作者:xhydxs
--  发布时间:2018/6/14 9:43:00
--  
以下是引用有点甜在2018/6/13 23:56:00的发言:
 下载信息  [文件大小:1.1 MB  下载次数:3]
图片点击可在新窗口打开查看点击浏览该文件:制作准考证.zip


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180614093902.png
图片点击可在新窗口打开查看
我想要这种效果,代码怎么修改呢?

Select Case e.Book.TempLate
    Case "门贴模板"
        Dim min = e.DataRow.DataTable.Compute("min(准考证号码)", "考室=\'" & e.DataRow("考室") & "\'")
        Dim max = e.DataRow.DataTable.Compute("max(准考证号码)", "考室=\'" & e.DataRow("考室") & "\'")
        Dim str As String = e.DataRow.DataTable.GetComboListString("报考学科", "考室=\'" & e.DataRow("考室") & "\'").replace("|", " ")
        e.book.marks("准考证") = min & "--" & max & "(" & "人" & ")"
        e.book.marks("科目") = str
End Select


--  作者:有点甜
--  发布时间:2018/6/14 10:12:00
--  

比如

 

e.book.marks("人数") = "(" & e.DataRow.DataTable.Compute("count(准考证号码)", "考室=\'" & e.DataRow("考室") & "\'") & "人)"