以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教老师关于按钮名称问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140418)

--  作者:有点蓝
--  发布时间:2019/9/5 13:43:00
--  
Dim sxs As WinForm.Button = e.Form.Controls("sxshu")
If sxs.Text ="打开筛选树" Then
    Tables("订单").OpenFilterTree("日期 YM")
    sxs.Text ="关闭筛选树"
Else
    Tables("订单").CloseFilterTree
    sxs.Text ="打开筛选树"
End If

--  作者:有点酸
--  发布时间:2019/9/5 20:12:00
--  
仔细点,五楼代码没有问题