非关联表之间的数据同步 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim d1 As Date = e.Row("上次保养时间")
Dim d2 As Date = Date.today
Dim t As TimeSpan = d2 - d1
Dim d As Single = t.TotalDays
Dim Pt As String = e.Row("材料名称")
If e.Row.IsNull("上次保养时间") = False Then
    Select Case pt
        Case "机油"
            If d >= 83 AndAlso d < 89 Then
                e.style = "近期"
            Else If d >= 89 AndAlso d < 97 Then
                e.Style = "到期"
            Else If d >= 97 AndAlso d < 105 Then
                e.style = "超期"
            Else If d >=105 Then
                e.Style = "严重超期"
            End If
        Case "齿轮油"
            If d >= 173 AndAlso d < 179 Then
                e.style = "近期"
            Else If d >= 179 AndAlso d < 187 Then
                e.Style = "到期"
            Else If d >= 187 AndAlso d < 195 Then
                e.style = "超期"
            Else If d >=195 Then
                e.Style = "严重超期"
            End If
    End Select
End If

主题：非关联表之间的数据同步