标题：急急！！关于表间数据相互引用代码失效的问题

'''数据表之间相互引用数据
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

 

老大这是我编写的数据表间数据相互引用的代码，刚编出来的时候测试是成功了的，这几天对这一段代码也没有进行过编辑，只是对该项目的其他方面在完善。没有想到这段代码现在不起作用了，请老大认真看看，是什么原因

既然没有作用，就说明可能某个if语句的条件不成立，也就是可能没有找到符合条件的行，原因很简单，自己去调试分析即可，别的人帮不了你，除非做个例子上来。

 

我刚才作了个例子，但是例子有可以引用，我真不明白是什么原因，老大你估计是怎么回事，我在想办法找找

真是见鬼了，我把代码重新复制了一遍放到里面之后有恢复了。

请问这段代码是放在什么事件中的？

currentchang