明白了,谢谢。版主
我把这个改成如下 ,倒是是包含supplier是空白的,怎么增加
Dim drs = t1.DataTable.Select("[_Identify] In (" & str & ") And supplier <> 'GSS'", "ShippingNO,NameinChinese,Unit,HS")