主题：代码改写

各位老师好，下面的代码原来写在绑定表“打印审批表_table1”的DataColChanged事件中，现在想把它写到窗口“打印”按钮的

Select Case e.DataCol.Name 
    Case "采购申报表打印","采购表名称"
       Dim Filter As String = "[编号] = '" & e.DataRow("编号") & "'"
        Dim nm As String = e.DataCol.Name
       DataTables("物品申报").ReplaceFor(nm, e.DataRow(nm), Filter)
End Select