主题：单价，如何能引用过来

在录入窗口，单击“价格”按钮,根据"材料名称","规格型号","单位"，将单价导过来，没有的为空。

此主题相关图片如下：计划单录入 单价 导入 界面.jpg


此主题相关图片如下：计划单录入 材料表.jpg

根据帮助，写出以下代码，可以在DataColChanged用。想在“价格”按钮的click里，如何实现。

Select Case e.DataCol.Name
    Case "材料名称","规格型号","单位"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("产品名称") OrElse dr.IsNull("规格型号") OrElse dr.IsNull("单位") Then
            dr("单价") = Nothing
        Else
            Dim filter As String
            filter = "产品名称 = '" & dr("产品名称") & "' And  规格型号 = '" & dr("规格型号") & "' And 单位 = '" & dr("单位") & "'"
            pr = DataTables("材料表").Find(filter)
            If pr IsNot Nothing Then
                dr("单价") = pr("单价")
            End If
        End If
End Select