请教，任何将下面代码转换成按钮代码。谢谢！

\'在"银行存款"表中用现金存入银行的数据自动填入到"现金表"中

Select Case e.DataCol.Name

    Case "资金来源"  \' 如果变动的是"资金来源"列

        If e.DataRow.IsNull("资金来源") = False  Then   \' 如果变动的是"资金来源"列值不为空

            If e.DataRow("资金来源") = "现金"  Then     \' 如果变动的是"资金来源"列值为"现金"

              Dim dr As DataRow = DataTables("现金表").AddNew()  \'在现金表中增加一行

                dr("日期") = e.DataRow("日期")            \'现金表日期列值等于当前表的日期值

                dr("收支") ="支"                          \'现金表收支列值等于"支"

                dr("分类") ="【其他去向】"                \'现金表分类列值等于"【其他去向】"

                dr("收支项目") ="转存"                    \'现金表收支项目列值等于"转存"

                dr("摘要说明")="存入" & e.DataRow("银行")  \'在存入银行前加上"存入"二字,此行代码的存入后后可以"&"也可用"+"号"

                dr("金额")= e.DataRow("存入金额")*-1   \'*-1是为了使现金表金额列成为负数..即作为支出

            End If

        End If

End Select

仅填入一次不能重复填入