Private Sub MyGrid_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyGrid.MouseUp
If e.Button = MouseButtons.Right Then
Dim info As DataGrid.HitTestInfo = MyGrid.HitTest(e.X, e.Y)
If info.Column = 1 Then ' 把1改为你的列号
MyGrid.CurrentCell = New DataGridCell(info.Row, info.Column)
Dim MyTextBox As TextBox = CType(MyGrid.TableStyles(0).GridColumnStyles(info.Column), DataGridTextBoxColumn).TextBox
MyTextBox.ContextMenu.Show(Me, Me.PointToClient(Control.MousePosition)) ' 假定Me为你的窗口实体
End If
End If
End Sub