- 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=192081)
-- 发布时间：2024/5/28 10:28:00
-- [求助]根据模板生成excel表时，费用日期一栏，如何生成？
根据模板生成excel表时，在“费用日期”一栏，根据下边的表年度和月份，生成：如：2024年1月－3月，如何设计模板，请专家指导。
如下图：
此主题相关图片如下：截图00.jpg
此主题相关图片如下：截图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 \'修改模板,加入制单人信息
-- 发布时间：2024/5/28 11:00:00
--
<"起始日期:" & [!起始日期]>，怎么用，请有点蓝老师指导！
-- 发布时间：2024/5/28 11:05:00
--
比如有一个vars变量"月份范围"，生成报表前给变量赋值
vars("月份范围") = "2024年1月-3月"
模板里的单元格填入
[!月份范围]
-- 发布时间：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变量赋值
-- 发布时间：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("月份范围") ) ‘’看看是什么结果
-- 发布时间：2024/5/28 16:32:00
--
这段代码放在哪个属性里边？
显示结果为：此主题相关图片如下：截图01.jpg
-- 发布时间：2024/5/28 16:36:00
--
提示显示代码没有问题。代码放到一个按钮里，生成报表前先点一下按钮。