必填项的通用代码,修改:Required() 数组值为必填项字段名称(红色部分),然后将以下代码加入表属性的 BeforeSaveDataRow 事件(红色部分)
' BeforeSaveDataRow (表属性的 BeforeSaveDataRow 事件)
' 在保存某一数据行之前执行,可以在此对数据进行最终的验证.
' 必填项的检查 Top
Dim Required() As String = {"模板编号", "模板分类", "模板名称", "球号名称"} '必填项的字段名称
Dim ColText As String = ""
For I As Integer = 0 To Required.Length - 1
If e.DataRow.IsNull(Required(I)) Then
ColText = IIF(e.DataTable.DataCols(Required(I)).Caption = "",Required(I),e.DataTable.DataCols(Required(I)).Caption)
MessageBox.Show("【" & ColText & "】不能为空","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
E.Cancel = True
Return
End If
Next
' 必填项的检查 End
建议狐狸爸爸:
考虑增加必填项字段属性,为True时,由系统自动检测,自动提示。