- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助 判断目录树获取的节点 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123616)
-- 发布时间：2018/8/19 14:53:00
-- 求助 判断目录树获取的节点
老师：
-- 发布时间：2018/8/19 15:37:00
--
请详细描述你的使用场景
-- 发布时间：2018/8/19 15:57:00
--
老师：
-- 发布时间：2018/8/19 16:00:00
--
请上传实例，没看懂你的用法
-- 发布时间：2018/8/19 21:39:00
--
老师：您好！
此主题相关图片如下：aaa.png
未报价RadioButton的CheckedChanged事件
Dim g As WinForm.RadioButton = e.Form.Controls("今天")
Dim f As WinForm.RadioButton = e.Form.Controls("最近三天")
Dim d As WinForm.RadioButton = e.Form.Controls("最近一周")
Dim s As WinForm.RadioButton = e.Form.Controls("本月数据")
If e.sender.Checked = True Then
If g.Checked = False And f.Checked = False And d.Checked = False And s.Checked = False Then
Return
Else
Dim btn As WinForm.Button = e.Form.Controls("Button18")
btn.PerformClick()
End If
End If
已报价RadioButton的CheckedChanged事件
Dim g As WinForm.RadioButton = e.Form.Controls("今天")
Dim f As WinForm.RadioButton = e.Form.Controls("最近三天")
Dim d As WinForm.RadioButton = e.Form.Controls("最近一周")
Dim s As WinForm.RadioButton = e.Form.Controls("本月数据")
If e.sender.Checked = True Then
If g.Checked = False And f.Checked = False And d.Checked = False And s.Checked = False Then
Return
Else
Dim btn As WinForm.Button = e.Form.Controls("Button18")
btn.PerformClick()
End If
End If
我是想我原来显示的是未报价，如果我再选已报价，我还要再点选一下目录树的7月份的7字才能转换已报价，是否可以单选按钮选中时不用再点选目录树？-- 发布时间：2018/8/19 21:45:00
--
Dim ovgj As Wi nForm.TextBox = e.Form.Co ntrols("ovgj")
Dim nrw As WinForm.RadioButton
= e.Form.Controls("nnrbww")
e.Fo rm. StopRedraw
Tabl es("qrymyf").Sort
= "ffikgn DESC"
Dim F ilt er As String
If e.n ode.Name = "显示所有款图" Then
Filter = ""
Else
If e.no de.Name <>
"显示所有款图" Then
Dim d1 As Date
Dim d2 As Date
Dim k As String
Dim Year As Integer = e.Node.DataRow("年")
Dim Month As Integer = e.Node.DataRow("月")
Dim ffikgn As String = e.Node.DataRow("ffikgn")
Dim ymyfjgm As String = e.Node.DataRow("ymyfjgm")
k = e.Node.DataRow("rbww")
-- 发布时间：2018/8/19 21:45:00
--
If 已报价.Checked = True Then
k = True
ElseIf 已报价.Checked = False Then
k = False
End If
\'If e.Form.Controls("thnn").Checked = False Then
Select Case e.Node.Level
Case 0
d1 = New Date(Year,1,1) \'取得该年的第一天
d2 = new Date(Year,12,31) \'取得该年的最后一天
Filter = " ymyfjjad >= \'" & d1 & "\' And ymyfjjad <= \'" & d2 & "\' and rbww = \'" & k & "\'"
Case 1
-- 发布时间：2018/8/19 21:46:00
--
d1 = New Date(Year, Month, 1) \'取得该月的第一天
d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
Filter = "ymyfjjad >= \'" & d1 & "\' And ymyfjjad <= \'" & d2 & "\' and rbww = \'" & k & "\'"
Case 2
d1 = New Date(Year, Month, 1) \'取得该月的第一天
d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
Filter = "ymyfjjad >= \'" & d1 & "\' And ymyfjjad <= \'" & d2 & "\' And ffikgn = \'" & ffikgn & "\' and rbww = \'" & k & "\'"
End Select
\'End If
End If
End If
With Data Tables("qrymyf")
.LoadFilter = Filter \'设置加载条件
.LoadPage = 0 \'加载第一页
Dim frm = e.Form.baseform
.LoadTop = 100 \'每页5行
.Load()
e.Form.Controls("wvdm").Value = 1 & "/" & .TotalPages
End With
Tab les("我的设计”)Filter = Filter
Data Tables("我的设计”).LoadFil ter = Filter
Data Tables("我的设计”).Load()
e.Form.ResumeRedraw
谢谢老师！！！
-- 发布时间：2018/8/19 22:16:00
--
把NodeMouseClick事件代码复制到CheckedChanged事件。把e.node改为tr.SelectedNode
tr = Forms("窗口1").Controls("TreeView1")
\'tr.SelectedNode
-- 发布时间：2018/8/19 22:18:00
--
谢谢老师！！！