主题：自定义样式

 http://www.foxtable.com/help/topics/0656.htm

 

   

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:销售成品管理.table

 在drawcell加了代码

If e.Col.Name = "列名" Then

    '原来的代码

End If

 表事件drawcell啊

If e.Col.Name = "到期日期" Then
    Dim dt As Date = Date.Today.AddDays(10)
    If e.Row("出库状态") = False AndAlso e.Row("到期日期") <= dt Then
        e.Style = "到期"
    End If
End If

    

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:销售成品管理.table

 参考15楼，看项目事件afterOpenProject事件的代码。

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & dt & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Forms("过期").Show
    Tables("过期_Table1").Filter = "到期日期 <= #" & dt & "# and 出库状态 = false"
End If

    

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:销售成品管理2.table