- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 基础资料限制是否要求录入值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127454)
-- 发布时间：2018/11/14 14:49:00
-- 基础资料限制是否要求录入值
保存前判别表A的基础料资打勾列的必须不能为空，没打勾的不能录入数据，否则光标落在第一个不满足要求的单元格，并弹出提示
此主题相关图片如下：1.gif
-- 发布时间：2018/11/14 14:52:00
--
这个代码该怎样写，想过跨表引有及权限的代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.table |
此主题相关图片如下：2.gif
-- 发布时间：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
-- 发布时间：2018/11/16 17:01:00
--
多谢