主题：关于BeforeCloseProject的求助。(已解决)

项目各用户密码都是:888

项目要求：关闭项目前校验，当有记录"姓名"为空，而且"接诊医生"为当前用户，而且"国籍"不为"城堡"时。提示，并筛选出相应记录。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:关闭项目.table

加一个条件你应该没问题的吧：

If DataTables("表A").Find("[姓名] Is Null And [国籍] <> '城堡' And [接诊医生] = '" & _
    User.Name & "'") IsNot Nothing Then
    Dim Result As DialogResult
    Result = Messagebox.Show("你在""表A""表中存在没有输入姓名的记录," & _
    "请删除后再关闭项目!","提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    If Result = DialogResult.OK Then
        e.Cancel = True '取消关闭项目
        Tables("表A").Filter = "[姓名] Is Null And [国籍] <> '城堡'  And [接诊医生] = '" & User.Name & "'"
        MainTable = Tables("表A")
        Return
    End If
End If

我原先也是按你说的方法来做的,就是因为不成功,才发贴求助的.

And [国籍] <> '城堡' 这段代码 不知道到是不是不能在 FIND 中起到作用?

为何不直接删除？这样的话一行代码就可以搞定：

DataTables("表A").DeleteFor("[姓名] Is Null And [接诊医生] = '" & User.Name & "'")

因为项目是运行在互联网上，环境例子：

分公司如果需要添加记录，必须总公司才能生成，不过记录会以国籍区别不同的公司。生成记录后，分公司会同步后，填写各项内容。但是填写不一定及时。

比如只有"城堡"公司才有这种添加记录的权限，其它公司就没有。

所以必须做出一定的校验。要不然"城堡"公司还没输入内容的话，你就关不了软件了。

最好用自定义登录，就不会出现这些问题！

因为要限制子单位不能生成新记录，所以只能在总部生成记录了，下面子单位只能修改完善记录。

现在的主要问题是

DataTables("XX").Find() 的问题。里面的条件不能使用<>.的问题。想求个解决方法。曲线的也行。