对象引用未设置为对象的实例。 - 专家坐堂 - 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("[凭证号] = '" & 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

[此贴子已经被作者于2016/4/12 16:21:22编辑过]

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