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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，求助

共有1938人关注过本帖树形打印复制链接主题：求助，求助

deliangzhaoe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：361 积分：3436 威望：0 精华：0 注册：2012/7/24 7:15:00

求助，求助

Post By：2019/10/7 20:13:00 [只看该作者]

表A有日期列、企业名称列等，新增一行时日期列默认值是当前日期，当修改新增行的日期列时，不能小于本企业已有记录中最晚的日期，只能大于或等于本企业已有记录中最晚的日期，如何写代码？

谢谢！

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：361 积分：3436 威望：0 精华：0 注册：2012/7/24 7:15:00

Post By：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 Select

下一主题 >> << 上一主题

主题：求助，求助