1、 For Each dr As Row In Tables("pack99").Rows values &= "'" & dr("order_id") & "',"
Next
2、
book.AddDataTable("pack991","erp_opti","Se lect * fr om {pack99} where order_id in (" & values.trim(",") & ") ")