以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按钮代码求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5614)

--  作者:wqc360
--  发布时间:2009/12/24 9:06:00
--  按钮代码求助
能否实现窗口3个节点生成按钮和撤消按钮代码集合在筛选按钮中,一键点一次变一下节点生成,最后撤消,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.table

[此贴子已经被作者于2009-12-24 9:22:18编辑过]

--  作者:czy
--  发布时间:2009/12/24 10:55:00
--  
Vars("Val") = Vars("Val") + 1
Select Case Vars("Val") Mod 4
    Case 1
e.Form.Controls("TreeView1").BuildDataTree("质量日记录", "", "姓名","年月")
    Case  2
e.Form.Controls("TreeView1").BuildDataTree("质量日记录", "","年月","日")
    Case  3
e.Form.Controls("TreeView1").BuildDataTree("质量日记录", "", "年月","姓名")
    Case  0
Tables("质量日记录").ApplyFilter = False
End Select

--  作者:czy
--  发布时间:2009/12/24 10:57:00
--  
说明,先增加一个数值型全局变量,全局变量名称为:Val
--  作者:wqc360
--  发布时间:2009/12/24 12:10:00
--  
Vars.Add("Val ",GetType(Integer))这样吗,是在Initialize事件吗
--  作者:czy
--  发布时间:2009/12/24 12:12:00
--  
是的。
--  作者:wqc360
--  发布时间:2009/12/24 14:22:00
--  
谢谢C版,这样节省了很多空间,也方便了很多,再次感谢。