在用戶單擊一個 DBGrid 控件指定列的標題時，會發生HeadClick事件。該事件的語法為： 
    Private Sub object_HeadClick ([ index As Integer,] colindex As Integer)


    其中colindex參數就是用戶點擊的列的索引值，利用這個值和Columns屬性配合使用就可以知道用戶點擊的是哪一個字段。下面給出一個例子，在這個例子中，用戶點擊某個列的標題之后，DBGrid就按那個列進行排序。 
    首先，在窗體上放置一個Data控件和一個DBGrid控件。 
    然后，將Data控件的數據庫設置為VB目錄下的Biblio.mdb，將RecordSource設置為Publishers。將DBGrid控件的DataSource屬性設置為Data1。 
    最后，輸入以下代碼： 
    

    Private Sub DBGrid1_HeadClick(ByVal ColIndex As Integer)

        Data1.RecordSource = "Select * From Publishers Order By [" & _

            DBGrid1.Columns(ColIndex).DataField + "]"

        Data1.Refresh

    End Sub
<END>