Dim lst As String = DataTables("下面表").GetComboListString("工号")
Dim drs As List(Of DataRow)drs = DataTables("上面表").Select("工号 not in ('" & lst.Replace("|",",") & "')")把drs加入下面表