主题：BeforeCloseProject求助

求助以下代码为何无法将存货账中筛选出业务发生日期为空并且商品名称不为空的记录？

If DataTables("存货账").Find("[业务发生日期] Is Null") Is Nothing Then

    If DataTables("存货账").Find("[商品名称] Is Null") IsNot Nothing Then

        Return '那么返回

    End If

    Dim Result As DialogResult

    Result = Messagebox.Show("存货账业务发生日期未录入,请录入完整后再保存.","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

    If Result = DialogResult.No Then '如果用户选择否

        e.Cancel = True '取消关闭项目

        Tables("存货账").Filter = "[业务发生日期] Is Null" '筛选出业务发生日期为空的记录.

        MainTable = Tables("存货账") '选择存货账作为主表.

    End If

End If