主题：请老大看看这是什么错误

此主题相关图片如下：7198bb70-d541-42d9-980b-150a0d188fb4.jpg

 

请老大看看这是什么问题，引发错误的代码是：

 

'''数据表之间相互引用数据
Dim dt As Datatable = Datatables("数据引用总表")
For Each c As Col In Currenttable.Cols
    Dim dr As Datarow =dt.Find("[目标表] = '" & Currenttable.Datatable.Name & "' And [目标列] = '" & c.Name & "'")
    If dr IsNot Nothing Then
        Dim yb As String = dr("源表")
        Dim yl As String = dr("源列")
        Dim mb As String = dr("目标表")
        Dim ml As String = dr("目标列")
        Dim ygl As String = dr("源关联")
        Dim bgl As String = dr("标关联")
        Dim ybdr As Datarow = Datatables(yb).Find("[" & ygl & "] = '" & Currenttable.Current(bgl) & "'")
        If ybdr IsNot Nothing Then
            If ybdr.IsNull(yl) Then
                Currenttable.Current(ml) = Nothing
            Else
                Currenttable.Current(ml) = ybdr(yl)
            End If
        End If
    End If
Next

 

上述代码引发错误的条件是，当前表没有行，或没有加载行。

请老大指点，如何解决这个问题。

上面贴出的代码就是CurrentChanged 的全局表事件

我的项目的设计大部分已经完成，就在设置加载的时候又出现了这样的现象，真是搞不明白，错在哪里

出现上面的错误，是在另一个表点击的时候就会出现，这个表于另一个表有关联，且这个表没有行或加载行的时候出现

老大，我想是不是应该判断没有行的情况，没有行的判断如何写，请老大指点

这是全局表事件代码，我的这段代码的功能是在一个数据引用总表中设置表间的数据引用，然后由这段代码来实现，这样给用户更大的方便。没有行的判断如何写，请老大指点

我想应该有解决的办法

老大，解决了，就是加一句判断行的句子。

还是有问题，加了一句判断，没有行时问题解决了。但是加载数据行时又出现了问题

这就是加的一句：If Currenttable.Rows.Count>0 Then

end if

。加载数据时又出现问题，老大你在吗，如何解决

在加载数据时如何让这段代码不执行呢