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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助，求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141638)

--  作者：deliangzhaoe
--  发布时间：2019/10/7 20:13:00
--  求助，求助
表A有日期列、企业名称列等，新增一行时日期列默认值是当前日期，当修改新增行的日期列时，不能小于本企业已有记录中最晚的日期，只能大于或等于本企业已有记录中最晚的日期，如何写代码？
谢谢！

--  作者：狐狸爸爸
--  发布时间：2019/10/7 23:12:00
--

1、DataRowAdding事件：
http://www.foxtable.com/webhelp/topics/0630.htm

e.DataRow("日期") = Date.Today

2、用DataColChaning事件：
http://www.foxtable.com/webhelp/topics/0624.htm

Slect case e.DataCol.Name
case "日期"
Dim min As Date = e.DataTable.Compute("Min(日期)","企业名称 = \'" & e.DataRow("企业名称") & "\'")
Dim max As Date = e.DataTable.Compute("Max(日期)","企业名称 = \'" & e.DataRow("企业名称") & "\'"))
if e.NewValue < min OrElse e.NewValue > Max Then
Messagebox.show("无效日期值")
e.Cancel = True
End If
End Select

[此贴子已经被作者于2019/10/7 23:12:40编辑过]

--  作者：deliangzhaoe
--  发布时间：2019/10/8 21:11:00
--
可以了，谢谢！
\'新增行日期列不得早于上一行的日期
Select Case e.DataCol.Name
Case "日期"
Dim min As Date = e.DataTable.Compute("Min(日期)","企业名称 = \'" & e.DataRow("企业名称") & "\'")
Dim max As Date = e.DataTable.Compute("Max(日期)","企业名称 = \'" & e.DataRow("企业名称") & "\'")
If e.NewValue > min AndAlso e.NewValue < Max Then
Dim Result As DialogResult
Result = Messagebox.show("此日期不得早于本公司最后一行的日期,不得插入行或上下移动行! 请重新输入!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)
If Result = DialogResult.OK Then
e.DataRow("日期") = Date.Today
End If
End If
End Select