主题：[求助] find 函数

问题一：如何 设置 相当于 excel 里面 “=”的函数，例如：A列数据已填好，令 B列 =A 列。

问题二：代码原来 根据 新变动的内容 ，在另外一列 ，自动填 相应的名称。

如何改成，不是 新变动 ，是这一列已经有的，都会在另一列 填充呢？

If e.DataCol.Name = "科目名称" Then
    If e.NewValue Is Nothing Then
        e.DataRow("产品代号") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("bom_info").Find("[m_s_g_name] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("产品代号") = dr("m_s_g_name")
        End If
    End If
End If