1

文字が入力されたときにテキストボックスを自動入力する必要があります。Me.QuickSearchTableAdapter1.GetDataByFirstName(FirstNamePri.Text) のクエリは次のとおりです。

SELECT        firstNamePri FROM      Customer WHERE        (firstNamePri LIKE @firstName)

Private Sub FirstNamePri_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) FirstNamePri.KeyPress を処理します

    Dim txtItems As New AutoCompleteStringCollection
    Dim search As ArfDynamicsDataSet.QuickSearchDataTable = _
    Me.QuickSearchTableAdapter1.GetDataByFirstName(FirstNamePri.Text+"%")

    Dim dbValues As String

    For Each row As DataRow In search.Rows

         dbValues = row("firstNamePri").ToString()
        dbValues = dbValues.ToLower()
        txtItems.Add(dbValues)


    Next

    FirstNamePri.AutoCompleteCustomSource = txtItems

End Sub

文字を入力すると、その文字がデータベースに存在しない場合、テキストボックスは空のままになり、入力した文字も削除されます

AutoCompleteMode を Suggest に、AutoCompleteMode を CustomSource に選択しました

誰が私が間違っているのか説明できますか?

編集: TextBox1 などの別のテキストボックスのキープレスイベントを使用し、TextBox1 イベントから FirstNamePri を自動入力すると機能します。FirstNamepri の keyPress で動作するはずです

ありがとう

4

2 に答える 2

0 
Public Function FetchProductSpareList(prefixText As String) As String()
    Dim dbinventory As New DCInventoryNewDataContext()
    Dim CompanyId As Integer = Convert.ToInt32(System.Web.HttpContext.Current.Session("CompanyID").ToString())

    Dim ProductNames = ( _
    Join P In dbinventory.Products On S.ProductId = P.id _
    Join C In dbinventory.SpareReceiptCodes On S.Id = C.StoreId _
    Where P.CompanyID = CompanyId AndAlso C.Active = True AndAlso _
                      P.ProductName.StartsWith(prefixText)).Distinct()
    Dim items As String() = New String(ProductNames.Count() - 1) {}
    Dim i As Integer = 0
    For Each Product As var In ProductNames
        items.SetValue(Product.ProductName, i)
        i += 1
    Next
    Return items
End Function
于 2012-11-24T10:53:53.317 に答える
0

あなたはこのようなことを試すことができます

Dim textParam = FirstNamePri.Text + "%"
Dim search As ArfDynamicsDataSet.QuickSearchDataTable = _
          Me.QuickSearchTableAdapter1.GetDataByFirstName(textParam)
于 2012-11-24T10:06:10.653 に答える