老师您好！

我想将下图中“卷1”表中的每个同学的两到题答案与“答案”表中对应的答案对比找到它们之间的不同点，例如，甲同学的“卷1”表中“题1答”列的录入结果是“abc”，而“答案”表中的“题1答案”列是“ab”,那么它们之间的不同点是c。然后，将这名学生姓名填到“统计”表中对应单元格中，例如甲同学作答结果和实际答案之间不同点是c，那么就在“统计”表中“试卷名”行为1、列名为C的的对应单元格中填入“甲”。又如，甲同学的“卷1”表中“题2答”列的录入结果是“b”，而“答案”表中的“题2答案”列是“c”,那么它们之间的不同点是bc。那么就在“统计”表中“试卷名”行为1、列名为b和c的两个单元格中都写入“甲”。如果在“卷1”表中乙同学的题1答”列的录入结果是“ac”，他作答结果和实际答案之间不同点是bc,应该在统计”表中“试卷名”行为1、列名为b、c两列的对应单元格中分别追加写入“乙”。但是由于我在看帮助时，没有找到相关语句，无法实现相关功能，请老师帮我看看如何实现这一功能。

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

下面是我写的相关代码，但是执行后只能将甲同学的名字写入，如果到乙同学时，甲同学的数据都被覆盖了，请老师帮助看看，我应该改动代码才能达到目的。

Dim tjdr As DataRow = DataTables("统计").find("试卷号 = \'" & DataTables("卷1").name.chars(1) & "\'")
Dim kfdr As DataRow = DataTables("答案").find("试卷号 = \'" & DataTables("卷1").name.chars(1) & "\'")
Dim A1dr,B1dr,C1dr,D1dr,A2dr,B2dr,C2dr,D2dr As String
Dim kegtdr1 As String = e.DataRow("题1答")
Dim kegtdadr1 As String = kfdr("题1答案")
Dim kegtdr2 As String = e.DataRow("题2答")
Dim kegtdadr2 As String = kfdr("题2答案")
If kfdr("题1答案") IsNot Nothing Then  \'判断学生作答的试题答案中是否包括ABCD四个选项,如果包括就将相应学生的姓名添加到"统计"表中对应的单元格中
    If kegtdr1.contains("a") = True And kegtdadr1.contains("a") = True
    Else If kegtdr1.contains("a") = True Or kegtdadr1.contains("a") = True Then
        A1dr = e.DataRow("姓名")
           End If
End If
If kfdr("题2答案")  IsNot Nothing Then
    If kegtdr2.contains("a") = True And kegtdadr2.contains("a") = True
    Else If kegtdr2.contains("a") = True Or kegtdadr2.contains("a") = True Then
      A2dr = e.DataRow("姓名")
    End If
End If
tjdr("A") = A1dr & ";" & A2dr
If kfdr("题1答案") IsNot Nothing Then
    If kegtdr1.contains("b") = True And kegtdadr1.contains("b") = True
    Else If kegtdr1.contains("b") = True Or kegtdadr1.contains("b") = True Then
       B1dr = e.DataRow("姓名")
    End If
End If
If kfdr("题2答案")  IsNot Nothing Then
    If kegtdr2.contains("b") = True And kegtdadr2.contains("b") = True
    Else If kegtdr2.contains("b") = True Or kegtdadr2.contains("b") = True Then
       B2dr = e.DataRow("姓名")
        End If
End If
tjdr("B") = B1dr & ";" & B2dr
If kfdr("题1答案") IsNot Nothing Then
    If kegtdr1.contains("c") = True And kegtdadr1.contains("c") = True
    Else If kegtdr1.contains("c") = True Or kegtdadr1.contains("c") = True Then
       C1dr = e.DataRow("姓名")
    End If
End If
If kfdr("题2答案")  IsNot Nothing Then
    If kegtdr2.contains("c") = True And kegtdadr2.contains("c") = True
    Else If kegtdr2.contains("c") = True Or kegtdadr2.contains("c") = True Then
        C2dr = e.DataRow("姓名")
    End If
End If
tjdr("C") = C1dr & ";" & C2dr
If kfdr("题1答案") IsNot Nothing Then
    If kegtdr1.contains("d") = True And kegtdadr1.contains("d") = True
    Else If kegtdr1.contains("d") = True Or kegtdadr1.contains("d") = True Then
       D1dr = e.DataRow("姓名")
    End If
End If
If kfdr("题2答案")  IsNot Nothing Then
    If kegtdr2.contains("d") = True And kegtdadr2.contains("d") = True
    Else If kegtdr2.contains("d") = True Or kegtdadr2.contains("d") = True Then
        D2dr = e.DataRow("姓名")
    End If
End If
tjdr("D") = D1dr & ";" & D2dr
If e.DataRow.Isnull("题1答") And e.DataRow.Isnull("题2答") Then \'如果学生没有作答,则"统计"表对应的单元格中为空
tjdr("A") = Nothing
tjdr("B") = Nothing
tjdr("C") = Nothing
tjdr("D") = Nothing
End If

这是我的源文件。

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

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

老师您好！我将设计思路再详细地叙述如下，您看能明白吗？

我想将下图中“卷1”表中的每个同学的两到题答案与“答案”表中对应的答案对比找到它们之间的不同点，例如，甲同学的“卷1”表中“题1答”列的录入结果是“abc”，而“答案”表中的“题1答案”列是“ab”,那么它们之间的不同点是c。然后，将这名学生姓名填到“统计”表中对应单元格中，例如甲同学作答结果和实际答案之间不同点是c，那么就在“统计”表中“试卷名”行为1、列名为C的的对应单元格中填入“甲”。又如，甲同学的“卷1”表中“题2答”列的录入结果是“b”，而“答案”表中的“题2答案”列是“c”,那么它们之间的不同点是bc。那么就在“统计”表中“试卷名”行为1、列名为b和c的两个单元格中都写入“甲”。如果在“卷1”表中乙同学的题1答”列的录入结果是“ac”，他作答结果和实际答案之间不同点是bc,应该在统计”表中“试卷名”行为1、列名为b、c两列的对应单元格中分别追加写入“乙”。但是由于我在看帮助时，没有找到相关语句，无法实现相关功能，请老师帮我看看如何实现这一功能。

谢谢，但是这不符合我的要求。

单独做一个按钮执行

Dim tjdr As DataRow = DataTables("统计").find("试卷号 = \'1\'")
Dim kfdr As DataRow = DataTables("答案").find("试卷号 = \'1\'")
tjdr("A") = Nothing
tjdr("B") = Nothing
tjdr("C") = Nothing
tjdr("D") = Nothing
For Each dr As DataRow In DataTables("卷1").DataRows
    Dim t1 As String = dr("题1答")
    Dim d1 As String = kfdr("题1答案")
    Dim t2 As String = dr("题2答")
    Dim d2 As String = kfdr("题2答案")
    Dim ts() As String = {t1, t2}
    Dim ds() As String = {d1, d2}
    Dim name As String = dr("姓名")
    For i As Integer = 0 To ts.length-1
        For Each s As String In ts(i)
            If ds(i).Contains(s) = False Then
                If tjdr.DataTable.DataCols.Contains(s) Then
                    tjdr(s) = tjdr(s) & name & ","
                End If
            End If
        Next
    Next
Next
tjdr("A") = tjdr("A").trim(",")
tjdr("B") = tjdr("B").trim(",")
tjdr("C") = tjdr("C").trim(",")
tjdr("D") = tjdr("D").trim(",")

谢谢大红袍老师，我现在还没有进行到按钮设置这一步。如果想在“卷1”表中输入内容回车后就能执行，怎样编写代码呢？在“卷1”事件datacolchanged中编写代码。请老师指导！！！

刚才在将您提供的代码放到该事件中执行后结果有些出入，具体见下图

刚才在将您提供的代码放到该事件中执行后结果有些出入，具体见下图

此主题相关图片如下：整合1.jpg