主题：[求助]请问专家：如何强制刷新计算教龄津贴？

参考

http://www.foxtable.com/webhelp/scr/2647.htm

http://www.foxtable.com/webhelp/scr/1587.htm

不可能，上传实例说明。

DataColChanged事件

Select Case e.DataCol.name   '算工龄
    Case "参工时间"
        If e.DataRow.IsNull("参工时间") Then
            e.DataRow("工龄") = Nothing
        Else
            Dim y As Integer = Date.Today.year
            Dim dt1 As new Date(y,1,1)    '当前日期这一年的第1天
            Dim tp As TimeSpan = dt1 - CDate(e.DataRow("参工时间"))
            e.DataRow("工龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End If
End Select
Select Case e.DataCol.name   '算教贴
    Case "参工时间", "工龄"
        If e.DataRow.IsNull("工龄")  Then
            e.DataRow("教贴") = Nothing
        ElseIf e.DataRow("工龄") >= 21 Then  '要达到满5,10,15,20之后,才调教贴,所以工龄都多加一年.
            e.DataRow("教贴") = 10
        ElseIf e.DataRow("工龄") >= 16 Then
            e.DataRow("教贴") = 7
        ElseIf e.DataRow("工龄") >= 11 Then
            e.DataRow("教贴") = 5
        ElseIf e.DataRow("工龄") >= 6 Then
            e.DataRow("教贴") = 3
        Else
            e.DataRow("教贴") = Nothing
        End If
End Select