主题：[求助]想写一段关于验证的代码 如果创建订单的时间不足30分钟，那么这个订单不允许被验证

客房预定_BeforeSaveDataRow
此主题相关图片如下：1010.jpg

 项目事件

计划管理

表事件

预定统计_DataColChanging

If e.DataCol.Name = "验证状态" And e.NewValue = False Then

    Dim d1 As Date

    d1 = e.DataRow("下单日期")

    Dim d2 As Date

    d2 = Date.now

    Dim t As TimeSpan = d2 - d1

    If t.TotalMinutes >= 30  Then

        MessageBox.Show( "是否验证","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)

    Else

        MessageBox.Show("剩余时间:" & 30 - t.Minutes & "分钟")

        e.Cancel = True

    End If

End If

预定统计_DataColChanged

Select Case e.DataCol.Name

    Case "验证状态"

        If e.NewValue = True Then

            e.DataRow("验证员") = User.Name

        End If

End Select

Select Case e.DataCol.Name

    Case "撤销验证"

        If e.NewValue = True Then

            e.DataRow("验证状态")= False

            e.DataRow("撤销验证人") = User.Name

            e.DataRow("验证员") = Nothing

        End If

End Select

预定统计_DataRowAdding

e.DataRow("下单日期") = Date.Now

e.DataRow("代理商名称") = User.Name

窗口表事件

窗口与控件事件

自定义函数

全局代码

Default

菜单事件