主题：怎样修改代码？

在父表和子表同步加载之三里面有这样一段代码，表面上没有问题，但是如果子表不存在相应的数据就会报错，请问怎么改这段代码？

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "订单编号 = " & e.Table.Current("订单编号")
    If  DataTables("订单明细").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
        DataTables("订单明细").AppendLoad(Filter) '则追载此订单的订单明细
    End If
End If