Foxtable(狐表)用户栏目专家坐堂 → [求助]根据模板生成excel表时,费用日期一栏,如何生成?


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

主题:[求助]根据模板生成excel表时,费用日期一栏,如何生成?

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
[求助]根据模板生成excel表时,费用日期一栏,如何生成?  发帖心情 Post By:2024/5/28 10:28:00 [只看该作者]

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

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2024/5/28 11:00:00 [只看该作者]

<"起始日期:" & [!起始日期]>,怎么用,请有点蓝老师指导!

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/28 11:05:00 [只看该作者]

比如有一个vars变量"月份范围",生成报表前给变量赋值
vars("月份范围") = "2024年1月-3月"


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

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2024/5/28 11:11:00 [只看该作者]

有点蓝老师,不能根据表的生成的年、月吗,假如,我选择的2024年1月和2月的数据,费用日期应该显示为:2024年1月-2月,如果我选择的2024年2月、3月、4月的数据,费用日期应该显示为:2024年2月-4月,怎么实现,谢谢老师,请指导

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/28 11:16:00 [只看该作者]

遍历选择的行,把月份合并给var变量赋值

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2024/5/28 16:32:00 [只看该作者]

这段代码放在哪个属性里边?
显示结果为:

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


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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/28 16:36:00 [只看该作者]

提示显示代码没有问题。代码放到一个按钮里,生成报表前先点一下按钮。

 回到顶部
总数 18 1 2 下一页