- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何增加判断语句 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177148)
-- 发布时间：2022/5/11 8:28:00
-- 如何增加判断语句
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 的话 到期就不用提醒 类似这样的 怎么写代码比较好
-- 发布时间：2022/5/11 9:22:00
--
drawcell代码发上来
-- 发布时间：2022/5/11 11:44:00
--
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
-- 发布时间：2022/5/11 11:58:00
--
不已经有判断了吗。就这样用呀
-- 发布时间：2022/5/11 12:04:00
--
如果这条记录处理了 就是确认是否传递报价 后 再开始登录的时候 这条信息就不筛选出来
-- 发布时间：2022/5/11 12:07:00
--
此主题相关图片如下：23.png
-- 发布时间：2022/5/11 13:13:00
--
Tables("报价管理系统").Filter = "要求报价日期<= #" & dt & "# and 是否传递报价=false"