主题：调用外部数据表时候应该怎么办

 无语，要帮你写多少次你才明白？

 代码写到AfterOpenProject事件去

For Each dr As DataRow In DataTables("订单").Select("业务员 is null") 
    Dim fdr As DataRow = DataTables("商品").Find("id = " & "'" & dr("productid") & "'" )
   
    If fdr IsNot Nothing '如果找到, 则设置各列内容      
        dr("商品名")= fdr("cn_name")      
    End If   
Next