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个字符。