Dim khs As String = DataTables("客户").GetComboListString("客户名", "优惠 = true").Replace("|", "','")Tables("订单").Filter = "客户 in ('" & khs & "')"