Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim selectsql As String = "select BUG表ID,发送者,发送时间 from BUG表"
        Me.DataGridView1.DataSource = datebase.sqlread(selectsql)
End Sub

Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged

        If Me.DataGridView1.SelectedRows.Count > 0 Then
            MsgBox(DataGridView1.CurrentRow.Cells("某列标题行").Value.ToString)
        End If

End Sub