主题：代码有时候能用，有时候不能，啥原因？

datacolchenged 事件中，下面的代码，有时候能用，有时候不能，郁闷死了。问题在哪里呀。

Select Case e.DataCol.Name
    Case "账户ID"     （操作账户id列，进不来。）
MessageBox.Show(1)    （这个出不来） 
        If e.NewValue Is Nothing Then
            e.DataRow("账户名称")= Nothing
        Else
            Dim dr As DataRow=DataTables("账户信息表").Find("账户ID='" & e.NewValue & "'")
            If dr IsNot Nothing Then
                e.DataRow("账户名称") = dr("账户名称")
            Else
                MessageBox.Show("账户ID不存在,请到账户信息表添加.")
                e.NewValue=Nothing
                e.DataRow("账户名称")=Nothing
            End If
        End If
End Select