Dim tr As DataRow = DataTables("员工表").find("员工姓名 = '" & user.name & "'") If tr IsNot Nothing Then Dim bm As String bm = tr("所属部门") bm = bm.Trim(",") Output.show(bm) DataTables("物料信息表").LoadFilter = "所属部门 in ('“ & bm & "') And 所属公司 = 'aa' " DataTables("物料信息表").Load End If