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.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