Private Sub dtgAML_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dtgAML.CellClick

       

        Try
            Dim strTemp = dtgAML.SelectedRows(0).Cells(0).Value.ToString()
            MessageBox.Show("有选中行")
        Catch ex As Exception
            MessageBox.Show("没有选中任何一行")
        End Try

 

End Sub