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


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

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

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


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

好的,谢谢

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

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


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


 回到顶部
帅哥哟,离线,有人找我吗?
hrw68529
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看


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


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

获取勾选的节点参考这里确定按钮的用法:http://www.foxtable.com/webhelp/topics/2478.htm

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


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

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

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


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

Dim lst as new list(of integer)
Dim
 trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For
 Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
      
lst.add(val(nd.Text))
    End 
If

Next
lst.sort
dim s as string = lst(0) & "-" & lst(lst.count - 1)
msgbox(s)

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


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

谢谢有点蓝老师

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