主题：如何使用像EXCEL软件中VLOOKUP功能

你怎么一点帮助文件也不看呢？

放在成本预算表－表属性－事件－datacolchanged中：

If e.DataCol.Name = "产品货号" Then
    If e.DataRow.IsNull("产品货号")

            e.DataRow("品名描述") = Nothing
        Else
        Dim dr As DataRow
        dr = DataTables("产品资料").Find("产品货号 = '" & e.DataRow("产品货号") & "'")
        If dr IsNot Nothing
            e.DataRow("品名描述") = dr("品名描述") 
            '其他列可以自己加在这里 
        End If
    End If
End If