| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何判断表列有空值不能按键操作下一步 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194739) |
| -- 作者：denghui69986 -- 发布时间：2025/1/9 14:04:00 -- 如何判断表列有空值不能按键操作下一步 如何判断表列有空值不能按键操作下一步操作，入库表增加一个按键完成入库，如果指定列有数据空值不能按键会会弹窗提示，在论坛没找到类似的，老师指点怎么实现 |
| -- 作者：有点蓝 -- 发布时间：2025/1/9 14:07:00 -- if tables("表A").compute("count(_identify)","第一列 is null") > 0 then msgbox("第一列有空值")
|
| -- 作者：denghui69986 -- 发布时间：2025/1/9 14:25:00 -- 提示End lf结束，添加了还是不可以 |
| -- 作者：有点蓝 -- 发布时间：2025/1/9 14:28:00 -- 说明没有空值 |
| -- 作者：denghui69986 -- 发布时间：2025/1/9 14:40:00 -- 现在有了提示但是按键没控制到，就是没能控制按键下面代码入库的操作下面代码，怎么实现空值按键里面代码不起作用， 下面有提示就是代码没控制，希望能实现空值不能操作下一步
If Tables("制造日报表").compute("count(_identify)", "批次投入工时 is null") > 0 Then msgbox("批次投入工时有空值不能完工") End If Dim a As Table = Tables("制造日报表") Dim b As Table = Tables("制造日报表存档") For r As Integer = 0 To a.Rows.Count - 1 Dim nr As Row = b.AddNew For c As Integer = 0 To a.cols.Count - 1 nr(c) = a.Rows(r)(c) Next Next For r As Integer = a.rows.Count - 1 To 0 Step - 1 a.rows(r).Delete Next [此贴子已经被作者于2025/1/9 14:54:52编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2025/1/9 14:52:00 -- If Tables("制造日报表").compute("count(_identify)", "批次投入工时 is null") > 0 Then msgbox("批次投入工时有空值不能完工") return End If
|
| -- 作者：denghui69986 -- 发布时间：2025/1/9 14:57:00 -- 谢谢！可以了，终于实现了 |