Dim bm As String = "查询表1" Dim jb As New SQLJoinTableBuilder(bm,"客户表") jb.ConnectionName = "数据源名" jb.AddCols("客人姓名","客人电话","性别","身份证号") jb.Filter = "客人姓名 in ('" & Tables("订单表").Current("客人姓名").Replace(",","','") & "')" Tables("窗口1_Table1").DataSource = jb.BuildDataSource