主题：[求助]bin大师过来看看。

同样的命令代码，只是替换了表名及窗口名，为什么就执行不了了呢？

 

不能执行的代码如下：

 

Dim b As Boolean = False
For Each c As Col In Tables("仪器设备库").cols
    If Tables("仪器设备库").Current.isnull(c.name)=False Then
        b= True
    End If
Next
If b =False Then
    Tables("仪器设备库").Current.delete
End If
Forms("仪器设备库主窗口").open()
forms("仪器设备库详细窗口").close()

 

可以执行的是bin大师给的，好像else是多余的

Dim b As Boolean = false

 

else（是不是多余写的，用的时候我已经删除）

补充：这段代码在其他的窗口中除了人力资源和标准库可以用以外，其他都不能用

无法在退出详细窗口前删除当前的空白记录。

说明：项目中的几张表的窗口样式是一摸一样的，为何？

情景：通过一个新增，增加一条空白记录，无任何输入内容，想放弃。因此，点击“离开本窗口”，在离开前，这条空白记录自动删除。

 

我明明在当前行没有输入任何内容啊

运行提示：“是否维护类”不为空，它是一个逻辑项，默认为FALSE，怎么解决？，

写成这样，也有问题：1排除代码的位置，2.c要不要指明

 

Dim b As Boolean = False
For Each c As Col In Tables("仪器设备库").cols
    If Tables("仪器设备库").Current.isnull(c.name)=False Then
        If c.IsBoolean =False Then
            b=False
        Else
            b= True
        End If
    End If
Next
If b =False Then
    Tables("仪器设备库").Current.delete
End If
Forms("仪器设备库主窗口").open()
forms("仪器设备库详细窗口").close()

oh yeah！！3Q!