[求助]代码不运行及出现对话框的原因 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.name = "学号" OrElse e.DataCol.name = "姓名" Then
    If e.DataRow.IsNull("学号") = False AndAlso e.DataRow.IsNull("姓名") = False Then
        Dim cjdr As DataRow = DataTables("成绩").Find("学号 = '" & e.DataRow("学号") & "' And 姓名 = '" & e.DataRow("姓名") & "'")
        Dim ndr1 As DataRow = DataTables("卷1问").Find("学号 = '" & e.DataRow("学号") & "' And 姓名 = '" & e.DataRow("姓名") & "'")
        Dim ndr2 As DataRow = DataTables("卷1频").Find("学号 = '" & e.DataRow("学号") & "' And 姓名 = '" & e.DataRow("姓名") & "'")
        If cjdr Is Nothing Then
            cjdr = DataTables("成绩").AddNew
        End If
        cjdr("学号") = e.DataRow("学号")
        cjdr("姓名") = e.DataRow("姓名")
        If ndr1 Is Nothing Then
            ndr1 = DataTables("卷1问").AddNew
        End If
        ndr1("学号") = e.DataRow("学号")
        ndr1("姓名") = e.DataRow("姓名")
        If ndr2 Is Nothing Then
            ndr2 = DataTables("卷1频").AddNew
        End If
        ndr2("学号") = e.DataRow("学号")
        ndr2("姓名") = e.DataRow("姓名")
    End If
End If

主题：[求助]代码不运行及出现对话框的原因