在用户单击一个 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