- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助目录树代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6030)
-- 发布时间：2010/2/27 9:26:00
-- 求助目录树代码
“作废外借票据管理窗口”中有两个目录树，一个是作废票据，一个是外借票据，分别在两个目录树中选择票据号码，被选中的票据在主表中的属性为True，表示作废或对外借出。想实现的功能： 1、根节点不要复选框，子节点保留复选框 2、被选中的子节点在“保存并退出”按钮中设置代码，实现对应的票据的“作废”或“外借”列的属性为True，未选中的仍为False。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2010/2/27 17:08:00
--
为什么不一勾选就标记作废或外借的状态呢（true or false）？ 还要来个大循环？？？
AfterCheckNode事件中：
Dim tr As WinForm.TreeView
tr = Forms("作废外借票据管理").Controls("TreeView2")
If e.Node.Checked and e.Node.Level > 0 Then
Dim dr As DataRow
dr = DataTables("分领明细").Find("票据号码 = \'" & tr.SelectedNode.text & "\'")
dr("外借") = true
else
Dim dr As DataRow
dr = DataTables("分领明细").Find("票据号码 = \'" & tr.SelectedNode.text & "\'")
dr("外借") = false
End If
[此贴子已经被作者于2010-2-27 17:08:18编辑过]
-- 发布时间：2010/2/27 17:17:00
--
还有你的AfterLoad事件中的筛选条件 收费金额 is null 如果录入员不小心输了一个零（0），认为没关系而不清除这个零（0）时，你这个条件就有问题了！～
-- 发布时间：2010/2/27 19:06:00
--
谢谢指导。我这张表的数据不直接编辑，是由其它表数据自动过录，感谢你的提醒，在其它窗口录入时我加个验证条件。另根节点不要复选框能否做到，根节点的复选框在这里没有一点用处。
-- 发布时间：2010/2/27 19:53:00
--
根节点不要复选框? 你只好等老六了。～