主题：对象引用未设置为对象的实例。

老师，在按钮代码执行时出现错误，请老师帮忙，谢谢！！感觉带色部分的代码不完整，但又不晓得怎么添加（想要表达代码的意思是，在科目明细表查找凭证号和一级科目名称都相同的行，如果找到，则不用复制，如果没有找到，则复制勾选中没有找到的行。），我的代码如下：

If User.IsRole("财务")  Then
    For Each r As Row In CurrentTable.Rows
        If r("选择") = True Then
            Dim dr1 As DataRow
            '否则在科目明细表查找同名的凭证号和一级科目名称行,将找到的行赋值给变量dr1
            dr1 = DataTables("科目明细").Find("[凭证号]  = '" & r("凭证号") & "'And [一级科目名称] = '" & r("一级科目名称") & "'")
            If dr1 IsNot Nothing Then '如果没有找到同名的凭证号和一级科目名称行,也就是dr1为Nothing
                Return '那么返回
               
            Else
                Dim nma() As String = { "日期","科目编码","凭证号","一级科目名称","借方金额","贷方金额" } 'A表数据来源列
                Dim nmb() As String = { "日期","科目编码","凭证号","一级科目名称","借方金额","贷方金额"  } 'B表数据接收列
                Dim dr As DataRow = DataTables("科目明细").AddNew
                For i As Integer = 0 To nma.Length - 1
                    dr(nmb(i)) = r(nma(i))
                Next
                MainTable = Tables("科目明细") '选择表B作为主表.
            End If
        End If
    Next
End If

错误翻译过来就是：对象引用未设置为对象的实例。

 上面代码不可能报错。自己调试

 

 http://www.foxtable.com/help/topics/1485.htm

 

 

Dim dr1 As DataRow
            '否则在科目明细表查找同名的凭证号和一级科目名称行,将找到的行赋值给变量dr1
            dr1 = DataTables("科目明细").Find("[凭证号]  = '" & dr1("凭证号") & "'And [一级科目名称] = '" & dr1("一级科目名称") & "'")
            If dr1 IsNot Nothing Then '如果没有找到同名的凭证号和一级科目名称行,也就是dr1为Nothing
                Return '那么返回
                

改成

 

dr1 = DataTables("科目明细").Find("[凭证号]  = '" & r("凭证号") & "'And [一级科目名称] = '" & r("一级科目名称") & "'")

谢谢老师，有时看似没问题，一小点不同结果大不一样！！