[浏览完整版]
标题：[求助]根据模板生成excel表时，费用日期一栏，如何生成？
1楼
hrw68529 发表于：2024/5/28 10:28:00根据模板生成excel表时，在“费用日期”一栏，根据下边的表年度和月份，生成：如：2024年1月－3月，如何设计模板，请专家指导。
如下图：
此主题相关图片如下：截图00.jpg
此主题相关图片如下：截图00.jpg2楼
有点蓝 发表于：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 '修改模板,加入制单人信息
3楼
hrw68529 发表于：2024/5/28 11:00:00<"起始日期:" & [!起始日期]>，怎么用，请有点蓝老师指导！
4楼
有点蓝 发表于：2024/5/28 11:05:00比如有一个vars变量"月份范围"，生成报表前给变量赋值
vars("月份范围") = "2024年1月-3月"
模板里的单元格填入
[!月份范围]
5楼
hrw68529 发表于：2024/5/28 11:11:00有点蓝老师，不能根据表的生成的年、月吗，假如，我选择的2024年1月和2月的数据，费用日期应该显示为：2024年1月－2月，如果我选择的2024年2月、3月、4月的数据，费用日期应该显示为：2024年2月－4月，怎么实现，谢谢老师，请指导
6楼
有点蓝 发表于：2024/5/28 11:16:00遍历选择的行，把月份合并给var变量赋值
7楼
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
8楼
有点蓝 发表于：2024/5/28 16:16:00Dim 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("月份范围") ) ‘’看看是什么结果
9楼
hrw68529 发表于：2024/5/28 16:32:00这段代码放在哪个属性里边？
显示结果为：此主题相关图片如下：截图01.jpg
10楼
有点蓝 发表于：2024/5/28 16:36:00提示显示代码没有问题。代码放到一个按钮里，生成报表前先点一下按钮。