有点蓝老师,生成的是全部表格的汇总,不是我在窗口副表中选择的数据汇总,你帮我看看,代码怎么改?代码如下: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 & "月"
有点蓝老师,上述代码总是实现不了我想要的结果,能不能换个思路,根据目录权复选框所选择的月份,生成“月份范围”,如我在目录树中选中1月、2月,就生成:1-2月,如果我在目录树中选中2月、3月、4月,就生成2-4月,然后传递给vars("月份范围"),怎么写代码,请指导。
如下图:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:截图02.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2024-5/20245298201388288.jpg)
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
Nextlst.sort
dim s as string = lst(0) & "-" & lst(lst.count - 1)
msgbox(s)