Foxtable(狐表)用户栏目专家坐堂 → [求助]保存之前判断空值


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

主题:[求助]保存之前判断空值

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


加好友 发短信
等级:超级版主 帖子:107718 积分:547917 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/4 17:50:00 [显示全部帖子]

这种代码适合放到按钮中判断,而不是表事件,应该这样

Dim r As datarow= e.datarow
        Dim cls() As String
        Select Case e.DataTable.name
            Case "Dwxx"
                cls = New String(){"单位全称","单位简称"}
            Case "Xcgl_jjd"
                cls = New String(){"发放时间"}
            Case "Xcgl_jjpf"
                cls = New String(){"奖金名称","奖金类别","批复时间","批复金额"}
            Case "Xcgl_kqtjb"
                cls = New String(){"本月应出勤"}
            Case "Xcgl_工资单"
                cls = New String(){"身份证号"}
            Case "员工信息表"
                cls = New String(){"姓名","身份证号","员工类别"}                
        End Select
        For Each c As String In cls
            If r.isnull(c) Then
                MessageBox.Show("[" & c & "]列不能为空!","提示",MessageBoxButtons.ok,MessageBoxIcon.warning)
                'msgbox("[" & c & "]列不能为空!")
e.cancel = true
                Return
            End If
        Next

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


加好友 发短信
等级:超级版主 帖子:107718 积分:547917 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/5 8:35:00 [显示全部帖子]


 回到顶部