主题：单击子表显示的问题

有一关联表“生产订单.表面计划”，怎样让单击这个子表是显示“生产订单_table6”里的内容，而单击“表面计划”表时不显示，求代码，谢谢！

 
fil= e.Row("订单号")
Tables("生产订单_table6").Filter="订单号 like '" & fil & "'"

谢谢蓝老师，另外请问这段用like的代码怎么不显示，是用错了吗

If e.Table.name = "生产订单.PMC车间计划" Then
    Dim fil As String
    fil= e.Row("订单号")
    Tables("生产订单_table3").Filter =  "合并订单 Like '* " & fil & "*'"
End If

生产订单。PMC车间计划“订单号”内容是：730单人椅，生产订单_table3“合并订单”内容是：730单人椅/500，615双人椅/200

谢谢

谢谢蓝老师，谢谢，找了好久问题都没有找到。