主题：自定义样式

要加一条件，在库状态=false 只有在库的才显示到期日期，出库的就不显示了，代码应该怎么写？

 

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

过期的窗口只显示过期的，我的文件都显示出来了，看看，我还需要改改哪里？

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

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

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

我把过期窗口的表里面显示列改了下就显示所有的数据了，你再看看

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

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

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

窗口怎么会闪一下，有没有办法不闪？