怎样控制dbgrid控件的点击头事件.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 21 行

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