主题：[求助]筛选

此主题相关图片如下：qqmmss20160114180240.png

如上图设计， 输入报价单号查询报价单和报价单明细

在报价主表的CurrentChanged写入下面的代码

If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim dg As WinForm.CheckBox = forms("导入报价产品").Controls("订购")
If dg.Checked = False Then
Tables("导入报价产品_报价明细表").Filter = "报价单号 = '" & Tables("导入报价产品_报价主表").Current("报价单号") & "'"
Else
Tables("导入报价产品_报价明细表").Filter = "报价单号 = '" & Tables("导入报价产品_报价主表").Current("报价单号") & "' and 已订购 = false"
End If

现在的问题是如果没有这个报价单号， 报价主表显示为无， 但是报价明细表有数据， 应该是没有的， 如何完善代码