标题：[求助]根据模板生成excel表时，费用日期一栏，如何生成？

11楼

hrw68529 发表于：2024/5/28 16:39:00

好的，谢谢

12楼

hrw68529 发表于：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楼

有点蓝 发表于：2024/5/28 17:26:00

遍历选中的行参考：http://www.foxtable.com/webhelp/topics/1597.htm

14楼

hrw68529 发表于：2024/5/29 8:20:00

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

如下图：

此主题相关图片如下：截图02.jpg

15楼

有点蓝 发表于：2024/5/29 8:55:00

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

16楼

hrw68529 发表于：2024/5/29 9:15:00

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

17楼

有点蓝 发表于：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)

18楼

hrw68529 发表于：2024/5/29 15:58:00

谢谢有点蓝老师

共18 条记录, 每页显示 10 条, 页签: [1] [2]