我想实现的让操作者必须完成18位的数值输入才行。 Dim s As String =Tables("高级一览表").Current("证件号码")
If e.DataCol.Name = "证件号码" Then If s.Length <> 18 Then Dim Result As DialogResult Result = MessageBox.Show("身份证号码不正确,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) If result =DialogResult.yes e.Cancel = True End If End If End If