If e.DataCol.Name = "联号" Then 

    e.DataRow("检验员") = User.name
    Dim dr As DataRow
    Dim Filter As String
    Filter ="[联号] = \'" & e.DataRow("联号") & "\'"
    dr = DataTables("联号清单").Find(Filter)
    If dr IsNot Nothing  Then
        e.DataRow("产品编号") = dr("产品编号")
        e.DataRow("规格型号") = dr("规格型号")
    End If
End If

以上代码我想从数据源中｛联号清单｝提取数据，应该如何修改。

｛联号清单｝是由一个人负责录入的，但是有很多人录入报表都是从这个表中提取数据，｛联号清单｝这个表刚输入的数据，其他人录入报表时不能及时从中提取数据，需关闭系统重新启起加载后才能，所以我想是否直接从外部数据源中提取数据。