[求助]涉及模糊查询和dookup不会做，请高手指点

Y9X

我是新手，我组合框内待选的数据实在太多，希望进行模糊查询以提高效率，另外，使用DOOKUP来显示相关联的另一个字段，也不会搞，所以想请高手帮帮忙。详见附件
我写的模糊查询
Private Sub 目的港代码_Change()
    Dim a As String
    a = "*" & Me.目的港代码 & "*"
目的港代码.RowSource = "SELECT DISTINCT [港口表].id FROM [港口表] " & _
            "where  [港口表].英文港口名称 like '" & a & "' "
    目的港代码.Dropdown
     b = Me.目的港代码.Column(0, 0)
End Sub

我写的DLOOKUP

Private Sub 目的港代码_AfterUpdate()
Dim a As LONG
a = Nz(DLookup("[中文港口名称]", "[港口表]", "[ID] =" & Forms![报价维护].[目的港代码] & ""), "")
If Nz(a) <> "" Then
Me.目的港.Value = a
Else
End If
End Sub

asklove

主要是对组合框列值的引用

Private Sub 目的港代码_AfterUpdate()
Me.目的港 = Me.目的港代码.Column(1)
Me.目的港代码 = Me.目的港代码.Column(2)
End Sub

(为了方便查看，我把你组合框中别的事件都删除了，只留更新后事件)

Y9X

谢谢前辈。
只是，能否在组合框内输入任何字母，不论是否首字母，类似的记录都能显示呢？您的方法是根据首字母排序，我想再模糊些，可否实现？

Y9X

谢谢前辈。
只是，能否在组合框内输入任何字母，不论是否首字母，类似的记录都能显示呢？您的方法是根据首字母排序，我想再模糊些，可否实现？

shenxb

这样的

TKJ

'能否在组合框内输入任何字母，不论是否首字母，类似的记录都能显示呢？您的方法是根据首字母排序，我想再模糊些，可否实现？'
我也想知道，请高人指点