以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]簡拼模糊查詢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12145)

--  作者:紙上不談兵
--  发布时间:2011/8/24 10:50:00
--  [分享]簡拼模糊查詢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:a.table


完善一下代码:

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
[此贴子已经被作者于2011-8-30 15:49:02编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/8/24 10:51:00
--  

沙发

图片点击可在新窗口打开查看


--  作者:紙上不談兵
--  发布时间:2011/8/24 10:53:00
--  
您看也不看,亂封精華貼啊!
--  作者:程兴刚
--  发布时间:2011/8/24 10:53:00
--  
学习!
--  作者:c
--  发布时间:2011/8/24 10:59:00
--  
好东西啊图片点击可在新窗口打开查看
--  作者:czy
--  发布时间:2011/8/24 11:08:00
--  
学习!!
--  作者:foxor
--  发布时间:2011/8/24 11:46:00
--  
实用,顶一个!
--  作者:169163
--  发布时间:2011/8/24 15:57:00
--  
太实用了,谢谢!
--  作者:老有所乐
--  发布时间:2011/8/24 16:52:00
--  
实用,顶
--  作者:pyh6918
--  发布时间:2011/8/24 19:23:00
--  
好东西,太好了。没看懂!图片点击可在新窗口打开查看