\'\'\'数据表之间相互引用数据
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语句的条件不成立，也就是可能没有找到符合条件的行，原因很简单，自己去调试分析即可，别的人帮不了你，除非做个例子上来。

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