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


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

主题:[求助]根据模板生成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
图片点击可在新窗口打开查看

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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
hrw68529
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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月,怎么实现,谢谢老师,请指导

 回到顶部
帅哥哟,离线,有人找我吗?
hrw68529
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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


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

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

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


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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2024/5/28 16:39:00 [显示全部帖子]

好的,谢谢

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2024/5/28 17:14:00 [显示全部帖子]

有点蓝老师,生成的是全部表格的汇总,不是我在窗口副表中选择的数据汇总,你帮我看看,代码怎么改?
代码如下:Dim zgf, zdf As Integer
Dim drs As List(Of DataRow) = Tables("医疗救助_明细").DataTable.Select("", "月份")
zgf = drs(drs.Count-1)("月份")
zdf = drs(0)("月份")
vars("月份范围") = zdf & "-" & zgf & "月"

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2024/5/29 8:20:00 [显示全部帖子]

有点蓝老师,上述代码总是实现不了我想要的结果,能不能换个思路,根据目录权复选框所选择的月份,生成“月份范围”,如我在目录树中选中1月、2月,就生成:1-2月,如果我在目录树中选中2月、3月、4月,就生成2-4月,然后传递给vars("月份范围"),怎么写代码,请指导。
如下图:

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


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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2024/5/29 9:15:00 [显示全部帖子]

有点蓝老师,不会弄啊,请指导

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2024/5/29 15:58:00 [显示全部帖子]

谢谢有点蓝老师

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