VB.NET版 autoComplete 自动完成功能

概述<script type="text/javascript" src="../Scripts/jquery-1.4.1.min.js"></script> <script src="../Scripts/jquery.autocomplete.js" type="text/javascript"></script> <script src="../Scripts/jquery.au

   
 <script type="text/JavaScript" src="../Scripts/jquery-1.4.1.min.Js"></script>    <script src="../Scripts/jquery.autocomplete.Js" type="text/JavaScript"></script>    <script src="../Scripts/jquery.autocomplete.min.Js" type="text/JavaScript"></script>    <link href="../Styles/jquery.autocomplete.CSS" rel="stylesheet" type="text/CSS" />    <script src="../Handler/GetPersonjson.ashx" type="text/JavaScript"></script>



//获取人员信息 搜索自动完成 result 回调函数返回结果
$("#txtPerson").keydown(function () {
$("#txtPerson").autocomplete(persondatas); 
}).result(function (event,persondatas,formatted)
{ $("#txtPerson").val(persondatas.toString().split(' -- ')[0]); 
})


GetPersonjson.ashx code as below:                 Dim connectionString As String = ConfigurationManager.ConnectionStrings("ConnectionString_EIS").ConnectionString                                                 ' EmployeeID                        Dim strsql As String = "  SELECT   (Chinesename + ' -- ' + EmployeeID) as Person  FROM [Employees]  where EmployeeID is not null  ORDER BY [Englishname]"                          Dim da As sqlDataAdapter = New sqlDataAdapter(strsql,connectionString)                        da.Fill(ds)                                           Dim JsonString As String = CreateJsonParameters(ds.tables(0))                        Dim newJsonStr As String = String.Empty            ' 定义persondatas 提供前台使用            newJsonStr = "var persondatas=[" & JsonString & "]"                                  context.Response.Write(newJsonStr)                                        Catch ex As Exception            Throw ex        End Try




Public Function CreateJsonParameters(ByVal dt As Datatable) As String        Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder()        If dt IsNot nothing Then            sb.Append("[")            For i = 0 To dt.Rows.Count - 1                sb.Append("{")                For j = 0 To dt.Columns.Count - 1                    If j < dt.Columns.Count - 1 Then                       'Chr(34) 是代表双引号                        sb.Append(Chr(34) & dt.Columns(j).Columnname.ToString() & Chr(34) & ":" & Chr(34) & dt.Rows(i)(j).ToString() & Chr(34) & ",")                    ElseIf (j = dt.Columns.Count - 1) Then                        sb.Append(Chr(34) & dt.Columns(j).Columnname.ToString() & Chr(34) & ":" & Chr(34) & dt.Rows(i)(j).ToString() & Chr(34))                    End If                Next j                If i = dt.Rows.Count - 1 Then                    sb.Append("}")                Else                    sb.Append("},")                End If            Next i        End If        sb.Append("]")        Return sb.ToString()    End Function
             

总结

以上是内存溢出为你收集整理的VB.NET版 autoComplete 自动完成功能全部内容，希望文章能够帮你解决VB.NET版 autoComplete 自动完成功能所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。