1

私は VB を初めて使用します。ポリシー番号があります。ポリシー番号の最初の 4 桁を入力すると、VB のコンボボックスが表示されます。最初の 4 つの数字を入力してドロップダウンに入力するというシナリオを実現したいと考えています。その後、ポリシーを入力し続けると、ドロップダウン リストの値が検索されません。

例: ポリシー番号: 969003648。9690 と入力すると、ドロップ ダウンに 969000001 から始まるポリシー番号が入力されます。値を 969003 などと入力すると、検索される値は、開始値として 969003 を持つポリシー番号に制限されます。 ...手伝ってください

私のコード:

Private Sub PolicyNo_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 46 Or KeyCode = 8 Then
Me.PolicyNo.value = ""
Else

If Len(Me.PolicyNo.Text) >= 4  Then
Me.PolicyNo.RowSource = ""
Call ReloadPolicyNo(Nz(Me.PolicyNo.Text, ""))

Function ReloadPolicyNo(sPolicyNo As String)

Me.PolicyNo.RowSource = "SELECT Inventory.PolicyNo FROM Inventory " & _
                          "WHERE Left(Inventory.PolicyNo," & Len(Me.PolicyNo.Text) & ")  = '" & Me.PolicyNo.Text & "' order by Inventory.PolicyNo"
End Function
4

2 に答える 2

0

コンボ ボックスの Textchanged イベントを使用して、コンボ ボックスの現在の内容を取得してみませんか?

例

    'THIS FIRES WHEN TEXT IS ENTERED INTO THE COMBOBOX
Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged

    'GET VALUE IN COMBOBOX
    Dim enteredText As String = ComboBox1.Text
    Dim strSelect As String = "select * from table where field like = '" & enteredText & "'%"

    'load COMBO BOX HERE

End Sub
于 2012-11-22T12:51:43.550 に答える