主题：[求助]多要求统计，并将值汇总到指定单元格

主窗口目录树由表A部门，姓名生成，Table绑定表A，

1、评分结束点击提交按钮后，将评分次数及分数累计汇总到目录树选定人数对应的单元格（参评人数，总分）。

2、我时自定义用户，怎么去记录一个登录用户对一个人只能进行一次评分。 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

老师问题2想到一个方法，当选择一个人，对评分提交结束后，就不能在选择这个人，目录树上的状态变为不可用，这样怎么去实现呢。

 加一个评分明细表，如下

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

 统计明细表的数据，自己参考帮助文档做 http://www.foxtable.com/webhelp/scr/0681.htm

 

谢谢老师，有明细表统计就完全没有问题了。

此主题相关图片如下：qq截图20171107144517.jpg

 

老师，还要麻烦一下，

1、当为已评分，我修改后评分后点击提交，结果会变，需要禁止对已评分的人员在进行第二次评分。

2、当选择未考评人员，右侧逻辑列没有清空。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

老师，和之前一样呢，是不是发错了？

把你bin文件夹删除重新打开。

我把已评分提示代码加到TreeView1的click事件，点击第一级目录树（部门）报错：

.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.5.22.1
错误所在事件：窗口,窗口1,TreeView1,Click
详细错误信息：
未将对象引用设置到对象的实例。

打开后，点击第二级（姓名）就没问题。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
Dim t As Table = e.Form.controls("Table1").Table
Dim dt As DataTable = DataTables("评分明细")
Dim fdr As DataRow = dt.Find("部门 = '" & nd.ParentNode.name & "' and 姓名 = '" & nd.name & "' and 评分人员 = '" & user.name & "'")
If fdr IsNot Nothing Then
    msgbox("你已提交评分,不能再修改")
    Return
End If

方法一：

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode

If nd.level=1 AndAlso nd.Text.contains("已评分") Then

    msgbox("你已提交评分,不能再修改")
    Return

End If

 

方法二：

 

8楼代码加上nd.level=1的判断

谢谢有点甜老师耐心写代码，目录树这块没仔细学习过，这个模块终于搞定了，年终考评不得有同志说有黑幕了。