Foxtable(狐表)用户栏目专家坐堂 → 增加字段必填项属性


  共有3730人关注过本帖树形打印复制链接

主题:增加字段必填项属性

帅哥哟,离线,有人找我吗?
9EQ98
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
增加字段必填项属性  发帖心情 Post By:2014/5/27 17:24:00 [显示全部帖子]

必填项的通用代码,修改: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时,由系统自动检测,自动提示。


 回到顶部
帅哥哟,离线,有人找我吗?
9EQ98
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/5/30 8:01:00 [显示全部帖子]

请问列不可为空的属性,在哪里设置?


 回到顶部