For Each s As String In qsrlsbbbh.text.Split(",") If DataTables("临时版本跟踪表").Compute("Count([_Identify])", " 临时版本编号 = '" & s & "' ") = 0 Then msgox( s & "的数据不存在") End IfNext