对象引用未设置为对象的实例。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

If User.IsRole("财务") Then

For Each r As Row In CurrentTable.Rows

If r("选择") = True Then

Dim dr1 As DataRow

'否则在科目明细表查找同名的凭证号和一级科目名称行,将找到的行赋值给变量dr1

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

If dr1 IsNot Nothing Then '如果没有找到同名的凭证号和一级科目名称行,也就是dr1为Nothing

Return '那么返回

End If

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))

MainTable = Tables("科目明细") '选择表B作为主表.

End If

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