DataGridVew用委托实现检索功能

1、用委托实现检索功能（C/S架构）在向用户展示数据时，本人喜欢用DataGridViwe，但数据较多时，用户经常反映为了找某一记录而花费很多时间，提出要求制作类似于Excel的检索功能。有人说，可以用SQL的限制条件来实现，显示当前的内容即可。其实不然，有些情况，为了能以观全局，必须要展示所有的记录给用户，如此，用户查看时才不会遗漏。另外有些表的记录并不是直接显示，而是通过非常复杂的运算而得到，花费的时间较长，若每次让用户花很长的时间显示数据，用户会非常厌烦。为此按要求给DataGridView制作检索功能。我们先看Excel的检索功能，先显示检索对话框，输入数据，然后点击检索按钮，系统在表中找

2、到相应的数据并标记。图1 Excel的检索窗口图2 Excel检索后的结果如图2所示，点击检索窗口的检索按钮，Excel开始检索，并将检索到的首个值框中以提示用户。我们藉以Excel的检索功能为蓝本，制作类似的检索功能。本教程仅实现检索功能，至于如何获得数据，如何给表加载数据，不在本教程范围之内，大家可以百度一下。图3 已准备好的包含记录的DataGridView欲通过点击检索按钮打开检索窗口如图4所示图4 检索窗口在检索窗口的文本框中输入欲寻找的字符，若找到则标记该行，若继续点击下一个按钮，会连续标记找到的行，直到表的末尾。如图5所示图5 检索到的包含张三的所有记录，因是模糊检索，所以同时也

3、找到了张三丰的记录。所有代码均有VB.NET2005 实现。首先在检索窗口的代码窗口中定义委托及委托事件'定义委托变量。 Public Delegate Sub StrSearchHandler(ByVal str As String) '定义委托事件，共享方式便于调用程序直接使用。 Public Shared Event StrSearchEvent As StrSearchHandlerPublic Shared 可让主调程序直接使用，而不必定义该检索窗口变量 。在主窗口调用该委托事件时可如此写：AddHandler frmDataGridViewPast_Search.S

4、trSearchEvent, AddressOf JianSuo。AddHandler添加句柄 frmDataGridViewPast_Search.StrSearchEvent的事件注册，该处不必实例化，直接写委托的调用，告知窗体的委托事件被触发时，调用该处AddressOf处的方法JianSuo，而该方法直接写于本地代码中，而且JianSuo就是一个普通的sub方法，当然其参数必须与当初定义的委托方法一致，如参数的个数以及参数的数据类型。该语句一般写入到初始加载方法中，即 Public Sub New()，其目的是一次注册永久使用，除非该窗体被关闭。在检索窗口中每次点击检索窗口中的【下一个

5、】按钮时，即触发一次，主调程序中的 JianSuo方法即实行一次，这样就实现了检索窗口和主调窗口的互动。 '触发自定义事件，通知调用程序点击了OK按钮。 RaiseEvent StrSearchEvent(txtSearchValue.Text)à每次打开时即登记注册的事件AddHandler frmDataGridViewPast_Search.StrSearchEvent, AddressOf JianSuo。à启用该方法实行检索功能。 Private Sub JianSuo(ByVal val As String)以上为委托事件的事件触发机制。下面贴出代码，每

6、段代码均有详细的注释，直接阅读注释即可理解。*先贴出检索窗口的代码。Public Class frmDataGridViewPast_Search#Region "定义变量" '定义委托变量。 Public Delegate Sub StrSearchHandler(ByVal str As String) '定义委托事件，共享方式便于调用程序直接使用。 Public Shared Event StrSearchEvent As StrSearchHandler #End Region#Region "检索按钮" '当窗体为活动状

7、态时，文本框获得焦点，并让其为全选状态。 Private Sub frmDataGridViewPast_Search_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated Me.txtSearchValue.Focus() Me.txtSearchValue.SelectAll() End Sub Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

8、btnOK.Click '触发自定义事件，通知调用程序点击了OK按钮。 RaiseEvent StrSearchEvent(txtSearchValue.Text) End Sub #End Region#Region "关闭" '关闭按钮仅将当前窗口关闭 Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click Me.Dispose() End Sub#End RegionEnd Class*再贴

9、出DataGridView窗口的代码。#Region "2015/07/15 添加检索功能" Public Sub New() InitializeComponent() '建立窗体和初始化时， '追加事件监控，监控检索窗口是否按下了OK按钮 '一旦按下，随即触发该事件并运行AddressOf 所关联的方法。 AddHandler frmDataGridViewPast_Search.StrSearchEvent, AddressOf JianSuo End Sub ''' <summary> ''

10、' 为检索时能模糊检索，特设该方法。 ''' 该方法通过获得一个字符串是否包含在另一个字符串中来实现, ''' 只要源字符串中包含比较字符串则返回源字符串，否则返回空。 ''' 例：SourceStr：123-456-24，CompStr：123-456，因CompStr=123-456，被包含在SourceStr=123-456-24中， ''' 所以返回SourceStr=123-456-24，否则返回空。 ''' </summary> '&#

11、39;' <param name="SourceStr">源字符串</param> ''' <param name="CompStr">比较字符串</param> ''' <returns></returns> ''' <remarks></remarks> Private Function getSearchStr(ByVal SourceStr As String, ByVal

12、 CompStr As String) As String Dim ret As String = "" Dim str As String = "" Dim lenStr As Integer = CompStr.Length '通过逐字累加比较的方式获取返回值 For i As Integer = 0 To SourceStr.Length - lenStr str = SourceStr.Substring(i, lenStr).ToString If str = CompStr Then ret = SourceStr End If Ne

13、xt Return ret End Function Dim CurrendRowsIndex As Integer = 0 '记录下当前找到行的索引，以便继续找下一条记录时从该行开始。 '实行检索事件 Private Sub JianSuo(ByVal val As String) Dim SearchStr As String = UCase(val.Trim) '默认为-1，因DataGridView的行索引从0开始，若为0，则欲寻之值恰好在首行的话，将不标注而直接退出。 Dim CurrentIndex As Integer = -1 Dim i, j As I

14、nteger Dim CurrentStr As String = "" For i = CurrendRowsIndex To dg1.Rows.Count - 1 '行循环，CurrendRowsIndex每次均从找到的记录的下一个开始。 For j = 0 To dg1.Columns.Count - 1 '列循环 CurrentStr = UCase(dg1.Rows(i).Cells(j).Value.ToString.Trim) '去除空白,和加入模糊检索 If CurrentStr <> "" AndAl

15、so CurrentStr = getSearchStr(CurrentStr, SearchStr) Then CurrentIndex = i '将找到的i值保存到当前变量中，以便做标记 CurrendRowsIndex = CurrentIndex + 1 '准备寻找下一个 Exit For '已找到相关的值而直接退出循环i. End If Next '当变量为非-1，则认为已找到相关的值而直接退出循环i. If CurrentIndex <> -1 Then Exit For End If Next '已经到最后了，显示未找到匹配记录

16、的消息框 If i = dg1.Rows.Count Then CurrendRowsIndex = 0 '结束时，该变量归0，以便继续使用 MsgBox("没有找到匹配的记录!", MsgBoxStyle.Information) Return End If '以找到的行索引值为准将所在的行选中，并标记。 dg1.FirstDisplayedScrollingRowIndex = CurrentIndex dg1.Rows(CurrentIndex).Selected = True End Sub '打开检索窗口 Private Sub tsBtnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsBtnSearch.Click Try '注：该My.Forms方法为VB.NET所特有，C#只能望成莫及。 With My.Forms.frmDataGridViewPast_Search If .WindowState = FormWindo