主题：筛选

老师，我再一个“添加订单入库”的窗口afterload事件里用如下代码进行筛选，筛选出当前“入库单”列相同“客户名称”的行

Dim t As Table = Tables("添加订单入库_Table1")

        t.Filter = "客户名称 = '" & Tables("入库单").Current("客户名称") & "'"

如果是有相同“客户名称”的行的时候，打开正常，可是如果没有相同“客户名称”行的时候，就会出现“未将对象引用到设置的实例”错误提示窗口，请求如何当没有相同行的时候，mess提示：“没有需要的行”，该窗口也不能打开，该如何写代码，谢谢

 打开之前，先判断

 

Dim fdr As DataRow = DataTables("某表").find("客户名称 = '" & Tables("入库单").Current("客户名称") & "'")

If fdr IsNot Nothing Then

    '窗口打开

Else

    msgbox("不存在")

End If