Dim dbs = DataTables("B05初检退单").GetComboListString("订单编号","业务归属 = '" & _姓名 & "'").replace("|", "','") Dim cmd As New SQLCommand Dim jm As String = _级码 cmd.CommandText = "select * From {B02订单管理} Where 是否分配 = 1 and 初检接单 = 0 and 级码 = '" & jm & "' and 订单编号 not in ('" & dbs & "')"