老师好！

我在通过以下代码可以通过在“客观问题描述”表的DataColChanged事件中运行达到增加一行，在“主观问题描述”表中也增加一行，在“各卷知识点频度统计”表中增加两行的目的。同时“主观问题描述”表中“试卷号”列、各卷知识点频度统计”表中“试卷号与题型”列都能填充相应内容。但是在运行时却出现了一个有关“运行错误”的对话框。请老师帮助我看看到底是哪些代码造成的？

图片如下：

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

运行代码如下：

 Dim ndr As DataRow = DataTables("主观问题描述").Find("试卷号 = \'" & e.DataRow("试卷号") & "\'")
Dim ndr1 As DataRow = DataTables("各卷知识点频度统计").Find("试卷号与题型 = \'" & e.DataRow("试卷号") & "客观题" & "\'")
Dim ndr2 As DataRow = DataTables("各卷知识点频度统计").Find("试卷号与题型 = \'" & e.DataRow("试卷号") & "主观题" & "\'")
If ndr Is Nothing OrElse ndr1 Is Nothing OrElse ndr2 Is Nothing Then  \'这是一个将相关表格进行同时增加行的条件代码
    ndr = DataTables("主观问题描述").AddNew
    ndr("试卷号") = e.DataRow("试卷号")
    ndr1 = DataTables("各卷知识点频度统计").AddNew
    ndr1("试卷号与题型") = e.DataRow("试卷号") & "客观题"
    ndr2 = DataTables("各卷知识点频度统计").AddNew
    ndr2("试卷号与题型") = e.DataRow("试卷号") & "主观题"
End If

文件如下：

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

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

程老师您好！

是“If ndr Is Nothing OrElse ndr1 Is Nothing OrElse ndr2 Is Nothing Then  ”这句代码中的Is Nothing 改成 IsNot Nothing吗？

如果是这样改的话，其他两个表没有任何改变。