主题：自动更新

Select Case e.DataCol.Name

    Case "施工项目","施工说明","单位","单价_辅料","单价_主材","单价_人工"

        Dim Filter As String = "[施工编号] = '" & e.DataRow("施工编号") & "'"

        DataTables("项目明细").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)

                MessageBox.Show("数据更新完成", "变更信息")

End Select

做成按钮的代码怎么编写

请教