如果是加载,可以这样写加载条件
DataTables("客户表").LoadFilter = "客户编号 in (select 客户编号 from {沟通内容} where 沟通内容 like '%会员卡%')"
DataTables("客户表").Load
如果是筛选,这样写
Dim filter As String = DataTables("沟通内容").GetComboListString("客户编号", "沟通内容 like '%会员卡%'")
Tables("客户表").filter = "客户编号 in ('" & filter.replace("|", "','") & "')"