主题：[求助] 改成按钮代码

老师， 这是表属性中的， 如何改成按钮代码，谢谢。

If e.DataCol.Name = "PartNo" Then

        Dim dr As DataRow
        dr = DataTables("AssemblyTime").Find("[PartNo] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("Assemblyhours") = dr("Hour")
           
        End If
    End If