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

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

主题：用户输入 对话框控制