标题：如何判断表列有空值不能按键操作下一步

1楼

denghui69986 发表于：2025/1/9 14:04:00

如何判断表列有空值不能按键操作下一步操作，入库表增加一个按键完成入库，如果指定列有数据空值不能按键会会弹窗提示，在论坛没找到类似的，老师指点怎么实现

2楼

有点蓝 发表于：2025/1/9 14:07:00

if tables("表A").compute("count(_identify)","第一列 is null") > 0 then

msgbox("第一列有空值")

3楼

denghui69986 发表于：2025/1/9 14:25:00

提示End lf结束，添加了还是不可以

4楼

有点蓝 发表于：2025/1/9 14:28:00

说明没有空值

5楼

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)

For r As Integer = a.rows.Count - 1 To 0 Step - 1

a.rows(r).Delete

[此贴子已经被作者于2025/1/9 14:54:52编辑过]

6楼

有点蓝 发表于：2025/1/9 14:52:00

If Tables("制造日报表").compute("count(_identify)", "批次投入工时 is null") > 0 Then

msgbox("批次投入工时有空值不能完工")

return

End If

7楼

denghui69986 发表于：2025/1/9 14:57:00

谢谢！可以了，终于实现了

共7 条记录, 每页显示 10 条, 页签: [1]