主题：看了半天也不知道问题出在哪儿了，操作表格时总是自动关闭系统！

加上列名判断

If e.DataCol.name = "现有教龄年限" Then
    If e.DataRow("现有教龄年限") < 5 Then
        e.DataRow("应享受教龄津贴") = 0
    ElseIf e.DataRow("现有教龄年限") > = 5 And e.DataRow("现有教龄年限") < = 9 Then
        e.DataRow("应享受教龄津贴") = 3
    ElseIf e.DataRow("现有教龄年限") > = 10 And e.DataRow("现有教龄年限") < = 14 Then
        e.DataRow("应享受教龄津贴") = 5
    ElseIf e.DataRow("现有教龄年限") > = 15 And e.DataRow("现有教龄年限") < = 19 Then
        e.DataRow("应享受教龄津贴") = 7
    ElseIf e.DataRow("现有教龄年限") > = 20 Then
        e.DataRow("应享受教龄津贴") = 10
    Else
        e.DataRow("应享受教龄津贴") = 0
    End If
End If

Select e.DataCol.Name

    Case "当前月", "任教月", "当前年", "任教年"
    If e.DataRow("现有教龄年限") < 5 Then
        e.DataRow("应享受教龄津贴") = 0
    ElseIf e.DataRow("现有教龄年限") > = 5 And e.DataRow("现有教龄年限") < = 9 Then
        e.DataRow("应享受教龄津贴") = 3
    ElseIf e.DataRow("现有教龄年限") > = 10 And e.DataRow("现有教龄年限") < = 14 Then
        e.DataRow("应享受教龄津贴") = 5
    ElseIf e.DataRow("现有教龄年限") > = 15 And e.DataRow("现有教龄年限") < = 19 Then
        e.DataRow("应享受教龄津贴") = 7
    ElseIf e.DataRow("现有教龄年限") > = 20 Then
        e.DataRow("应享受教龄津贴") = 10
    Else
        e.DataRow("应享受教龄津贴") = 0
    End If
End Select

表达式列，不触发dataColChanged事件 http://www.foxtable.com/webhelp/scr/2381.htm

 把你datacolchanged事件其余代码删除。

 如果还有问题，上传实例。