主题：DataColChanged

做了一个按钮，事件的Click代码是 ：DataTables("生产调度_Table3").DataCols("任务单编号").RaiseDataColChanged()。

表格的DataColChanged代码是：

If e.DataCol.Name = "任务单编号" Then '发生变化的是产品列.
    '则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
    e.DataRow("理论计算金额") = DataTables("生产调度_Table2").Compute("Sum(材料价格)","[工艺单编号] like '" & e.NewValue & "-*'")+DataTables("生产调度_Table2").Compute("Sum(加工金额)","[工艺单编号] like '" & e.NewValue & "-*'")
End If

Select Case e.DataCol.Name
    Case "任务单编号"
        If e.DataRow.IsNull("任务单编号") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("工艺单").Count = 0 Then '而且无订单明细
                Dim dr As DataRow = DataTables("工艺单").AddNew()
                dr("任务单编号") = e.DataRow("任务单编号")
            End If
        End If
End Select

我希望当我点击按钮时，

只执行 

e.DataRow("理论计算金额") = DataTables("生产调度_Table2").Compute("Sum(材料价格)","[工艺单编号] like '" & e.NewValue & "-*'")+DataTables("生产调度_Table2").Compute("Sum(加工金额)","[工艺单编号] like '" & e.NewValue & "-*'")
End If
不执行

Select Case e.DataCol.Name
    Case "任务单编号"
        If e.DataRow.IsNull("任务单编号") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("工艺单").Count = 0 Then '而且无订单明细
                Dim dr As DataRow = DataTables("工艺单").AddNew()
                dr("任务单编号") = e.DataRow("任务单编号")
            End If
        End If
End Select

该怎么处理？

两条代码都是针对"任务单编号"触发的。

我把第一条代码的触发设置在一个按钮中。

现在当我点击按钮后，两条代码都触发了