主题：跨表引用

老师，跨表引用怎么引用没加载表的数据呢？

'跨表引用
If  e.DataCol.Name = "项目名称" Then
    Dim nms() As String = {"合同编码","所属机构","合同工期","开工日期","竣工日期","项目经理","项目总工"}
    If  e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("合同签订").SQLFind("[项目名称] = '" & e.NewValue & "'")
        If  dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If