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

 你编辑一下事件代码，确定以后，修改 账户id 列，不能触发代码？

 注意：如果你打开项目的时候，按住了ctrl不放，是不会执行任何代码的。