一、排序功能：
首先在uses节中根据你选用的数据集引用对应的 EhLibXXX (EhLibADO, EhLibCDS…)
然后再设置下面几个DBGridEh控件的属性：
|
1 2 3 4 5 6 7 8 9 |
procedure TForm1.FormCreate(Sender: TObject); var I: Integer; begin DBGridEh1.SortLocal := True; DBGridEh1.OptionsEh := DBGridEh1.OptionsEh + [dghAutoSortMarking]; for I := 0 to DBGridEh1.Columns.Count - 1 do DBGridEh1.Columns[I].Title.TitleButton := True; end; |
二、过滤功能：
具体设置很简单，如下：
|
1 2 |
DBGridEh1.STFilter.Visible := True; DBGridEh1.STFilter.Local := True; |
如果想在下拉列表中加入自定义过滤条件，可以在相应列的OnFillSTFilterListValues事件中加入：
|
1 2 3 4 5 6 7 8 9 |
procedure TForm3.DBGridEh1Columns1FillSTFilterListValues( Sender: TCustomDBGridEh; Column: TColumnEh; Items: TStrings; var Processed: Boolean); begin Items.Add('201201'); Items.Add('201202'); Items.Add('201203'); Items.Add('201204'); end; |
三、自动搜索：
该搜索框可实现自动搜索并过滤。
|
1 2 |
DBGridEh1.SearchPanel.Enabled := True; DBGridEh1.SearchPanel.FilterOnTyping := True; //实时过滤 |
For mig, der ligger og skraber bunden af min konto, er det mange penge at bruge pÃ¥ ringbind 😀 men jeg giver Nikoline fuldstændig ret i, at du kommer til at elske dig selv til eksamen, hvis du kan holde orden i det hele. Desuden har hun ogsÃ¥ ret i, at det er smart at farve sine notater. Det gør jeg ogsÃ¥, og det gør det bÃ¥de sjovere at skrive dem og at læse dem :)Held og lykke med al gyjeÃsinhalla¸met, forresten. Og velkommen til de tre bedste Ã¥r i dit liv 😉
好文章，内容文风幽默.禁止此消息：[email protected]
好文章，内容点石成金.禁止此消息：[email protected]