Foxtable(狐表) → 用户栏目 → 专家坐堂 → 工资管理系统


  共有21828人关注过本帖树形打印复制链接

主题：工资管理系统
帅哥哟，离线，有人找我吗？
发财
 小大  161楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/4/29 11:14:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160429111234.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  162楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/4/29 11:15:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim s As Double = 0
Dim t As Table = Tables("工资摘要")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Nodes.Count = 0 AndAlso nd.Checked = True Then
        Dim fdr1 As DataRow = t.DataTable.find("_Identify = " & nd.tag) '查找对应的行
        s = fdr1("合计") + s
    End If
Next
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Nodes.Count = 0 AndAlso nd.Checked = True Then
        If s = 0 Then
            nd.Delete
        Else
            messagebox.show("有金额不能删除!")
        End If
    End If
Next
如何禁止删除一级摘要？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  163楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/29 11:25:00 [只看该作者]

If nd.Nodes.Count = 0 AndAlso nd.Checked = True AndAlso nd.Level <> 1 Then

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  164楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/2 20:14:00 [只看该作者]

第一行：Dim nd As WinForm.TreeNode In trv.AllNodes
第二行：If nd.Nodes.Count > 0 AndAlso nd.Checked = True Then

第三行：Tables("工资摘要").Filter = ""
Tables("工资摘要").sort = "代码"
请问：如何在第三行代码中加入第二行的作选择条件？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  165楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/2 20:19:00 [只看该作者]

Dim idxs As String = "-1,"

 

第二行：

idxs = idxs & nd.tag & ","

 

第三行：

msgbox(idxs)

Tables("工资摘要").Filter = "_Identify in (" & idxs.Trim(",") & ")"

 

[此贴子已经被作者于2016/5/2 20:19:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  166楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/2 20:26:00 [只看该作者]

Dim nd As WinForm.TreeNode In trv.AllNodes
这句应如何修改？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  167楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/2 20:33:00 [只看该作者]

如果If nd.Nodes.Count > 0 AndAlso nd.Checked = True Then的条件成立就同时选择打开？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  168楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/3 8:44:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：选择展开目录树.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  169楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/3 8:46:00 [只看该作者]

如何做一个按钮，按选择展开数据表？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  170楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/5/3 9:29:00 [只看该作者]

        Tables("工资摘要").Filter = "代码 = '" & name & "' Or 代码 Like '" & name & ".%' and nd.Nodes.Count = 0 "
请问老师：这句代码应如何改？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询