主题：求助 判断目录树获取的节点

未报价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

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")