看了半天也不知道问题出在哪儿了，操作表格时总是自动关闭系统！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

为什么改了还是不行呢？

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

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

以下是引用有点色在2017/3/17 12:02:00的发言：

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

还是不行？不知道是怎么回事？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:教龄遗属.table

dataColChanged有代码吗，下面代码不要放在dataColChanging

Select e.DataCol.Name

Case "身份证号码" '如果是身份证字段发生变化

If e.DataRow.IsNull("身份证号码") Then '若身份证号码为空

e.DataRow("出生日期") = Nothing '清除生日

Else If e.DataRow("身份证号码").length >=15 Then

e.DataRow("出生日期") = ReadBirthDay(e.DataRow("身份证号码")) '生日取值

End If

Case "当前时间","任教时间"

If e.DataRow.IsNull("当前时间") = False AndAlso e.DataRow.IsNull("任教时间") = False

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

可以了，谢谢师傅！

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