主题：[分享]簡拼模糊查詢

Dim t As Table =Tables("模糊查询_Table1")

Dim py,Lm,Ts, Bm,sql,Lb,sl As String

Dim Ls As New List(Of Integer)

Dim Lss As New List(Of String)

Static st As String

Dim drs As New List(of DataRow)                        '定义一个DataRow行的集合

Ts = "编号,姓名,部门,职务"                                    '查询相关列

Bm = "员工"

If st = e.sender.Text.ToUpper Then                     '大写输入框内容

    Return

Else

    st = e.sender.Text.ToUpper

End If

e.sender.value =  st

Sendkeys.Send("^{END}")                                    '光标定于输入框最后

drs = DataTables(Bm).Select("姓名 > ''")

'赋值drs=员工表--姓名列不为空的 DataRow行

If drs.count > 0 Then                                             '如drs行数>0,执行...

    If st IsNot Nothing Then                                    '如输入框内容不为空,执行...

        For Each Lm In Ts.split(",")                            '遍历查询相关列

            For Each dr As DataRow In drs                   '遍历所有行

                py = GetPY(dr(Lm),True)                       '赋值py = 查询行查询列的简拼

                If dr(Lm).IndexOf(st)> -1 OrElse py.IndexOf(st) > -1 Then

                                                                            '如查询行查询列内容(或简拼)包含输入框内容,执行...

                    If Ls.Contains(dr("_Identify")) = False Then    '如不包含则Ls集合增加主键[_Identify]值

                        ls.Add(dr("_Identify"))

                    End If

                    If Lss.Contains(dr(Lm)) = False Then

                        Lss.Add(dr(Lm))

                    End If

                    

                End If

            Next

        Next

        If Ls.count > 0 Then

            For Each n As Integer In Ls

                sql+ = ","  & n

            Next

            sql = "[_Identify] In(" & sql.Trim(",") & ")"                            '包含主键[_Identify]内容

            sql = "select " & Ts & " from{" & Bm & "} where " & sql          '合成SQL语句

            t.Fill(sql,True)                                                                    '生成SQL查询表

            For Each sl In Lss

                lb+ = "|"  & sl

            Next

            e.sender.ComboList = lb                                                      '形成输入框列表

        Else

            MessageBox.show("抱歉,数据库中没有您想查询的信息!" )           '如输入数据库中没有的信息则给出提示

            e.sender.value =  ""

            e.sender.Select

            Return

        End If

    End If

End If