Private Sub refreshTSMI_addToCase()     ‘  按照当前界面dgv中的case ID 刷新右键菜单 AddToCase

        Dim listCaseIDs As List(Of Integer) = getDgvCaseIDs()  ‘   获取当前dgv 中的 case列表

        ‘  上面获取了当前的CaseID
        ‘  下面将这些 caseID 作为菜单的选项

        TSMI_AddToCase.DropDownItems.Clear()    ‘  先清空菜单

        ‘   在右键菜单 AddToCaseToolStripMenuItem 中添加一个 子菜单项，显示为 New; 当点击此项时，其 sender.name也是  New
        ‘     注意：左边的 New 是显示在子菜单上的文字， 右边的 New 是这个子菜单的名字sender.name
        TSMI_AddToCase.DropDownItems.Add("New", Nothing, AddressOf clickTSM_addToCase).Name = "New"

        For Each _caseId In listCaseIDs       ‘   将列表中的内容 插手菜单

            TSMI_AddToCase.DropDownItems.Add(_caseId, Nothing, AddressOf clickTSM_addToCase).Name = _caseId

        Next

    End Sub

    ‘  当鼠标右键点击进入菜单 Add To New Case 时，将当前选中的这几笔交易插手到某个 可疑Case中
    Private Sub clickTSM_addToCase(ByVal sender As Object, ByVal e As System.EventArgs) Handles TSMI_AddToCase.Click

        ‘MessageBox.Show(" menuItem_Click " & sender.name)

        If dtgAML.SelectedRows.Count = 0 Then    ‘  如果当前没有选择任何一笔交易
            MessageBox.Show("请选择至少一个alert，然后再添插手case", "一个case至少一个alert")
            Return    ‘  返回
        End If

        ‘If dtgAML.SelectedRows.Count > 10 Then    ‘  如果当前选择的交易笔数太多
        ‘    MessageBox.Show("目前选择的alert太多，请选择不要赶过10笔，然后再插手case")
        ‘    Return    ‘  返回
        ‘End If

        For Each _row As DataGridViewRow In dtgAML.SelectedRows   ‘ 对付所选中的这些行

            If IsNothing(_row.HeaderCell.Value) Then
                Continue For    ‘  跳过去
            End If

            If IsNumeric(_row.HeaderCell.Value.ToString) Then   ‘ 如果其行头是 数值(说明已经插手case了)
                MessageBox.Show(" 当前有些alert已经隶属于某个case，请先 remove from case ，然后再添加 ", "不成反复添加alert")
                Return
            End If

            If UserType = UTYPE_CMPLCEB Or UserType = UTYPE_CMPLCEC Then
                Dim strSus As String = _row.Cells(dtg_suspicious_index).Value.ToString.Trim
                If strSus = "N" Then
                    MessageBox.Show(" 当前有些alert的 " & UserType.ToString & " Suspicious选项为N，这样无法add to Case；请先设为Y，然后再添加 ", "不成添加不成疑的alert")
                    Return
                End If
            End If

        Next

        ‘  此刻已经有几笔交易当选中了，而且这些交易不属于任何一个case，并且都是可疑交易

        Dim caseID As Integer = 0   ‘  caseID（如果为0，，就是要将这几笔交易添插手新的case）