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

代码：If Tables("二级维护登记表").Current.IsNull("客户车牌")  Then

    MessageBox.Show("请输入客户车牌号码!")

Else

    Dim dt As DataTable

    Dim dr As DataRow

    dr = DataTables("客户表").Find("客户车牌 = '" & Tables("二级维护登记表").Current.DataRow.GetParentRow("客户表")("客户车牌") & "'")

    

    If dr IsNot Nothing Then

        If forms("二级维护登记").Opened Then

            forms("二级维护登记").Controls("TextBox1").value=dr("客户编号")

            forms("二级维护登记").Controls("TextBox10").value=dr("客户单位")

            forms("二级维护登记").Controls("TextBox11").value= dr("客户名称")

            forms("二级维护登记").Controls("TextBox12").value= dr("客户车牌")

            forms("二级维护登记").Controls("TextBox13").value= dr("车辆型号")

            forms("二级维护登记").Controls("TextBox14").value=dr("车辆识别号")

            forms("二级维护登记").Controls("TextBox15").value=dr("发动机编号")

            forms("二级维护登记").Controls("TextBox16").value=dr("联系电话")

            

        Else

            Return

        End If

    End If

    

    

    

End If

老师们帮我看看 ，现在基本上所有窗口都出现这个问题