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编辑过]