主题：怎样修改代码？

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

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

代码不应该有问题的。如果出问题，也只可能是编号列是字符列的时候出错

Dim Filter As String = "订单编号 = '" & e.Table.Current("订单编号") & "'"

不然，具体出错实例发上来测试。