以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用户输入 对话框控制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141466)
--  作者：yifan3429
--  发布时间：2019/9/29 18:00:00
--  用户输入 对话框控制

ValidateEdit

结束编辑单元格前执行，通常用于验证输入的内容。


If e.Col.Name = "状态" Then
    Dim str As String = ""
    If InputValue(str, "动态变更说明", "这是非常关键的一刻:小艺需要变更的理由") Then
        Dim t As Table = Tables("战略动态日志")
        \'Dim t1 As Table = e.Form.controls("table1").Table
        \'Dim nr As Row = Tables("视图").Current  \'如果是更新数据用这条
        Dim nr As Row = t.AddNew    \'如果是新增用这条
        \'nr("表名") = t1.DataTable.name
        nr("状态") = e.Row("状态")
        nr("变更说明") = str
    End If
    DataTables("战略动态日志").Save()
    MessageBox.Show("已保存")
End If


需要实现功能 如果客户点击取消，维持原来的数据不接收新的数据，如果客户输入数据最少不能低于10个字符。
--  作者：有点蓝
--  发布时间：2019/9/29 20:12:00
--  
代码改到datacolchanging事件，使用e.cancel来取消录入