If Tables("未完成订单_订单主表").Current IsNot Nothing Then
Tables("未完成订单_订单明细表").Filter = "工作号 = '" & Tables("未完成订单_订单主表").Current("工作号") & "'"
End If
加好友 
发短信
Post By：2017/4/10 9:01:00 [显示全部帖子]
