主题：档案引用的问题

 比如有个项目信息表，增加了项目A，在合同表里要引用这个项目A，在合同表里找不到这个项目+

Dim tb As New DropTreeBuilder

tb.SourceTable = DataTables("xmxxb") '指定目录树表

tb.TreeCols = "xmlb|xmmc" '指定用于生成目录树的列

tb.SourceCols = "xmlb|xmbm|xmmc|xmgs|分项名称|分项概算" '指定数据来源列

tb.ReceiveCols = "xmlb|xmbm|xmmc|xmgs|分项名称|分项概算" '指定数据接收列

Tables("htb").Cols("xmlb").DropTree = tb.Build()

If e.DataCol.Name = "XMBM" Then '发生变化的是项目编码列

    '在项目信息表找出该项目编码

    Dim dr As DataRow 

    dr = DataTables("XMXXB").Find("XMBM = '" & e.DataRow("XMBM") & "'" )

    If dr IsNot Nothing '如果找到, 则设置各列内容

        e.DataRow("XMMC")= dr("XMMC")

        e.DataRow("XMGS")= dr("XMGS")

        e.DataRow("分项名称")= dr("分项名称")

        e.DataRow("分项概算")= dr("分项概算") 

    End If

End If