Dim t_tblShanghuafandian As Table = Tables("窗口客户_tblShanghuafandian")
With Tables("窗口客户_tblqitachanpin") If .Current Is Nothing Then t_tblShanghuafandian.Filter = "False" Else t_tblShanghuafandian.Filter = "用户号码 = '" & .Current("接入号") & "'order by 日期 desc" End If End With