Dim auditopinions As List(Of String) For m As Integer = 0 To strsn.Length - 1 If strsn(m) > "" Then auditopinions = DataTables("audit").GetValues("auditopinion","sn= '" & strsn(m) & "'","auditdate desc") If auditopinions.Contains("") = False Then MessageBox.Show("已经审核的数据不允许重新审核,请重新选择.", "提示", MessageBoxButtons.OK ,MessageBoxIcon.Information) Return End If End If Next