以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]根据模板生成excel表时,费用日期一栏,如何生成?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192081)

--  作者:hrw68529
--  发布时间:2024/5/28 10:28:00
--  [求助]根据模板生成excel表时,费用日期一栏,如何生成?
根据模板生成excel表时,在“费用日期”一栏,根据下边的表年度和月份,生成:如:2024年1月-3月,如何设计模板,请专家指导。
如下图:
图片点击可在新窗口打开查看此主题相关图片如下:截图00.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/5/28 10:35:00
--  
方法1、http://www.foxtable.com/webhelp/topics/1391.htm
2、http://www.foxtable.com/webhelp/topics/1145.htm,生成报表是使用代码设置,如

Sheet(6,6).Value = "制单人:" & User.Name \'修改模板,加入制单人信息

--  作者:hrw68529
--  发布时间:2024/5/28 11:00:00
--  
<"起始日期:" & [!起始日期]>,怎么用,请有点蓝老师指导!
--  作者:有点蓝
--  发布时间:2024/5/28 11:05:00
--  
比如有一个vars变量"月份范围",生成报表前给变量赋值
vars("月份范围") = "2024年1月-3月"


模板里的单元格填入
[!月份范围]

--  作者:hrw68529
--  发布时间:2024/5/28 11:11:00
--  
有点蓝老师,不能根据表的生成的年、月吗,假如,我选择的2024年1月和2月的数据,费用日期应该显示为:2024年1月-2月,如果我选择的2024年2月、3月、4月的数据,费用日期应该显示为:2024年2月-4月,怎么实现,谢谢老师,请指导
--  作者:有点蓝
--  发布时间:2024/5/28 11:16:00
--  
遍历选择的行,把月份合并给var变量赋值
--  作者:hrw68529
--  发布时间:2024/5/28 16:06:00
--  
有点蓝老师,我试着写了一段代码,但生不成,请指导
代码如下:
 Dim zgf, zdf As Integer
    Dim dt As DataTable = DataTables("医疗救助")
    For Each dr As DataRow In dt.DataRows
        Dim drs As List(Of DataRow) = DataTables("医疗救助").Select("", "月份")
        zgf = drs(drs.Count-1)("月份")
        zdf = drs(0)("月份")
       vars("月份范围") = zgf & "-" & zdf &"月"
Next


--  作者:有点蓝
--  发布时间:2024/5/28 16:16:00
--  
Dim zgf, zdf As Integer
    Dim dt As DataTable = DataTables("医疗救助")
        Dim drs As List(Of DataRow) = DataTables("医疗救助").Select("", "月份")
        zgf = drs(drs.Count-1)("月份")
        zdf = drs(0)("月份")
       vars("月份范围") = zgf & "-" & zdf &"月"
msgbox(vars("月份范围") ) ‘’看看是什么结果

--  作者:hrw68529
--  发布时间:2024/5/28 16:32:00
--  
这段代码放在哪个属性里边?
显示结果为:

图片点击可在新窗口打开查看此主题相关图片如下:截图01.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2024/5/28 16:36:00
--  
提示显示代码没有问题。代码放到一个按钮里,生成报表前先点一下按钮。