If Tables.Contains("干警信息") Then For Each r As Row In Tables("干警信息").Rows If r("姓名") IsNot Nothing Then Dim drs = DataTables("告知内容").Select("姓名 = '" & r("姓名") & "' and (是否告知 is null or 是否告知 <> '是')") If drs.count = 0 Then r.Checked = False Else For Each dr1 As DataRow In drs If dr1("人员类型")="案件承办人" Then MessageBox.Show("我是案件承办人") If r("电话号码") <> Nothing Then End If If r("电子邮件") <> Nothing Then End If End If If dr1("人员类型")="检察官助理" Then MessageBox.Show("我是检察官助理") If r("电话号码") <> Nothing Then End If If r("电子邮件") <> Nothing Then End If End If If dr1("人员类型")="书记员" Then MessageBox.Show("我是书记员") If r("电话号码") <> Nothing Then End If If r("电子邮件") <> Nothing Then End If End If If dr1("人员类型")="关联人" Then MessageBox.Show("我是检察官主力") If r("电话号码") <> Nothing Then End If If r("电子邮件") <> Nothing Then End If End If Next End If End If Next End If Dim rs As List(of Row) = Tables("干警信息").GetCheckedRows If rs.Count = 0 Then MessageBox.Show("当前信息已经全部告知!","【温馨提示】") End If
|