قائمة مختصرة

لم أتعامل مع الـ data grid كثيرا وأستخدم بدلا منها MSFlexGrid

ومع هذه الاداه يمكنك ذلك عن طريق الخاصيه MouseRow

فعن طريق هذا الكود

Private Sub MSFG_MouseDown(Button As Integer, Shift As  _
Integer, X As Single, Y As Single)
    If Button = vbKeyRButton Then
        'MSFG.RowSel
        MSFG.Row = MSFG.MouseRow
        MSFG.Col = 1
        Current_Pos = Val(MSFG.Text)
        MSFG.Row = MSFG.MouseRow
        MSFG.Col = 0
        Current_Item = Val(MSFG.Text)

     '   MsgBox Current_Pos
        PopupMenu gg

    End If

End Sub

عند الضغط على زر الماوس الايمن تظهر القائمة gg والتى تحوى على أمر حذف وأمر تعديل

ويكون المتغير Current_Item يحمل رقم السجل

والمتغير Current_Pos يحمل رقم العمود الثانى فى السجل المحدد