主题：[求助]如何分类统计答题错误信息

 

大红袍老师您好！

很感谢您一直以来的无私、耐心、细致地指导，使我在实现自己目标的路上克服了一个又一个困难。目前遇到一个比较复杂问题，不知道在“卷1答”的datacolchanged事件中编写怎样的代码才能实现如下复杂的功能：

1、统计客观题出现问题的人数并将对应学生姓名进行统计。

具体设想是将下图中“卷1答”表中每个同学的三道客观题答案与“客观题答案”表中对应的答案进行对比，找到它们之间的不同点后统计对应错误选项人数和学生姓名，将这些信息写入“卷1统”表对应的单元格中。例如，李雷同学的“卷1答”表中“客观题1”列的录入结果是“abc”，而“客观题答案”表中的“客观题1”列是“ab”,那么它们之间的不同点是c。在“卷1统”表“错误人数”列和统计号为“C1”行交叉的单元格中计数为1；将字符“李雷”填到“错误学生”列和统计号为“C1”行交叉的单元格中。艾华同学的“卷1答”表中“客观题1”列的录入结果是“cd”，而“客观题答案”表中的“客观题1”列是“ab”,那么它们之间的不同点是abcd。在“卷1统”表“错误人数”列和统计号为“A1”行交叉的单元格中计数为1，“错误人数”列和统计号为“B1”行交叉的单元格中计数1 ，“错误人数”列和统计号为“C1”行交叉的单元格中计数2 ，“错误人数”列和统计号为“D1”行交叉的单元格中计数1；将字符“艾华”追加填到“错误学生”列和统计号分别为“A1”、“B1”、“C1”、“D1”行交叉的单元格中。

2、统计主观题出现问题的人数并将对应学生姓名进行统计。

只有当“卷1答”表中各“主观题”的答案为“F”时，在“卷1统”表中“错误人数”列和对应统计号的交叉单元格中计数，在“错误学生”列和对应统计号的交叉单元格中追加学生姓名。例如李雷在“卷1答”表中“主观题1”的答案为“F”，则在“卷1统”表中“错误人数”列和对应统计号为“主观1”的交叉单元格中计数为1，“错误学生”列和对应统计号为“主观1”的交叉单元格中追加学生姓名“李雷”。其他同学的主观题答案只有为“F”时进行上述统计。

具体图示和文件如下

此主题相关图片如下：8.jpg

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

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

此主题相关图片如下：11.jpg

请您看看哪写代码造成上述结果出现。

谢谢！！！

上传包含数据的完整例子

如果重复执行，先清空表的数据DataTables("卷1统").DeleteFor("")

Hyphen老师，下面文件是包括录入数据和运行结果的文件。

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

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

 

2楼代码测试没有问题，结果和6楼项目数据一样。

Hyphen老师您好！按照您建议的做后，能达到要求。目前还没有到设置按钮那个程度，我想在datacolchanged事件中运行。请您再帮我看看！

其他统计程序的代码也都在“卷1答”的datacolchanged事件中。

Dim dr As Row = Tables("客观题答案").Rows(0)
Dim lst1 As new List(of String)
Dim lst2 As new List(of String)
For Each r As Row In Tables("卷1答").Rows
    For Each c As Col In Tables("卷1答").Cols
        If r.IsNull(c.Name) Then Continue For
        If c.Name.StartsWith("客观题") Then
           
            lst1.Clear
            lst2.Clear
            Dim v As String = r(c.Name)
            For i As Integer = 0 To v.Length-1
                lst1.Add(v(i))
            Next
            v = dr(c.Name)
            For j As Integer = 0 To v.Length-1
                If lst1.Contains(v(j)) Then
                    lst1.Remove(v(j))
                Else
                    lst2.Add(v(j))
                End If
            Next
            lst1.AddRange(lst2.ToArray())
            For Each s As String In lst1
                Dim filter = "统计号 = '" & c.Name.Replace("客观题","") & s.ToUpper() & "'"
                Dim drt As DataRow = DataTables("卷1统").Find(filter)
                If drt("错误学生").Contains(r("姓名")) = False Then
                    drt("错误人数") = drt("错误人数")+1
                   
                    drt("错误学生") = (drt("错误学生") & "," & r("姓名")).trimstart(",")
                End If
            Next
        ElseIf c.Name.StartsWith("主观题") Then
            If r(c.Name) = "F" Then
                Dim filter = "统计号 = '" & c.Name.Replace("观题","") &  "'"
                Dim drt As DataRow = DataTables("卷1统").Find(filter)
                If drt("错误学生").Contains(r("姓名")) = False Then
                    drt("错误人数") = drt("错误人数")+1
                    drt("错误学生") = (drt("错误学生") & "," & r("姓名")).trimstart(",")
                end if
            End If
        End If
    Next
Next