以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 统计个数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140683) |
-- 作者:有点蓝 -- 发布时间:2019/9/11 14:01:00 -- & "\' and [配刀人员] is null " |
-- 作者:有点蓝 -- 发布时间:2019/9/11 15:51:00 -- http://www.foxtable.com/webhelp/topics/1776.htm |
-- 作者:有点蓝 -- 发布时间:2019/9/11 16:39:00 -- For Each r As Row In Tables("员工").GetCheckedRows Dim Filter As String = "[成品编码] = \'" & r("成品编码") & "\' and [加工工序] = \'" & r("加工工序") & "\' ........ If DataTables("计划领用刀具").SQLCompute("count(配刀人员)", Filter) > 0 MessageBox.show("你无审批权限!") return
Else Forms("生成配刀单号").open End If Next |
-- 作者:有点蓝 -- 发布时间:2019/9/11 17:17:00 -- 说明后台数据库没有符合条件的数据 |
-- 作者:有点蓝 -- 发布时间:2019/9/11 17:39:00 -- 上传实例说明 |