在用戶單擊一個(gè) DBGrid 控件指定列的標(biāo)題時(shí)，會(huì)發(fā)生HeadClick事件。該事件的語(yǔ)法為： 
    Private Sub object_HeadClick ([ index As Integer,] colindex As Integer)


    其中colindex參數(shù)就是用戶點(diǎn)擊的列的索引值，利用這個(gè)值和Columns屬性配合使用就可以知道用戶點(diǎn)擊的是哪一個(gè)字段。下面給出一個(gè)例子，在這個(gè)例子中，用戶點(diǎn)擊某個(gè)列的標(biāo)題之后，DBGrid就按那個(gè)列進(jìn)行排序。 
    首先，在窗體上放置一個(gè)Data控件和一個(gè)DBGrid控件。 
    然后，將Data控件的數(shù)據(jù)庫(kù)設(shè)置為VB目錄下的Biblio.mdb，將RecordSource設(shè)置為Publishers。將DBGrid控件的DataSource屬性設(shè)置為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>