Foxtable(狐表)用户栏目专家坐堂 → 基础资料限制是否要求录入值


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

主题:基础资料限制是否要求录入值

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


加好友 发短信
等级:七尾狐 帖子:1708 积分:4287 威望:0 精华:0 注册:2017/11/8 17:37:00
基础资料限制是否要求录入值  发帖心情 Post By:2018/11/14 14:49:00 [只看该作者]

保存前判别表A的基础料资打勾列的必须不能为空,没打勾的不能录入数据,否则光标落在第一个不满足要求的单元格,并弹出提示
图片点击可在新窗口打开查看此主题相关图片如下:1.gif
图片点击可在新窗口打开查看


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


加好友 发短信
等级:七尾狐 帖子:1708 积分:4287 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2018/11/14 14:52:00 [只看该作者]

这个代码该怎样写,想过跨表引有及权限的代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.table

图片点击可在新窗口打开查看此主题相关图片如下:2.gif
图片点击可在新窗口打开查看


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/14 16:44:00 [只看该作者]

beforesavedatarow事件,写代码

 

Dim fdr As DataRow = DataTables("表A").find("编码='" & e.DataRow("编码") & "'")
If fdr IsNot Nothing Then
    If fdr("数量") = True Then
        If e.DataRow.IsNull("数量") Then
            msgbox("数量不能为空")
            Tables("表B").Select(Tables("表B").FindRow(e.DataRow), Tables("表B").Cols("数量").Index)
            e.cancel = True
        End If
    End If
    If fdr("部门") = True Then
        If e.DataRow.IsNull("部门") Then
            msgbox("部门不能为空")
            Tables("表B").Select(Tables("表B").FindRow(e.DataRow), Tables("表B").Cols("部门").Index)
            e.cancel = True
        End If
    End If
    If fdr("客户") = True Then
        If e.DataRow.IsNull("客户") Then
            msgbox("客户不能为空")
            Tables("表B").Select(Tables("表B").FindRow(e.DataRow), Tables("表B").Cols("客户").Index)
            e.cancel = True
        End If
    End If
End If


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


加好友 发短信
等级:七尾狐 帖子:1708 积分:4287 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2018/11/16 17:01:00 [只看该作者]

多谢


 回到顶部