主题：如何增加判断语句

Dim dt  As  Date =  Date.Today.AddDays(3)
 Dim dr As DataRow =  DataTables("报价管理系统").Find("要求报价日期 <= #" & dt & "#" )
 If dr IsNot Nothing  Then
     MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
     Tables("报价管理系统").Filter = "要求报价日期<= #" & dt & "#"
     MainTable = Tables("报价管理系统")
End If

 

 

此主题相关图片如下：55.png

像这种的 想增加判断语句得  怎么写比较好    比如我想增加一个判断  如果是否传递报价选择true  的话 到期就不用提醒  类似这样的  怎么写代码比较好

 

If e.Col.Name = "要求报价日期"  Then
    If e.Row.IsNull("要求报价日期") = False
        If e.Row("要求报价日期") < Date.Today.AddDays(3) And e.Row("是否传递报价") = False  Then
            e.Style = "到期"
        End  If
    End  If
End If

如果这条记录处理了  就是确认是否传递报价 后   再开始登录的时候   这条信息就不筛选出来 

此主题相关图片如下：23.png