VBA Combobox控件如何做模糊搜索+拼音搜索？

出錯時繼續下壹步

Dim strN作為字符串

set CNN = CreateObject(" adodb . connection ")

cnn。open " Provider = Microsoft . jet . oledb . 4.0；數據源= Z:\ KD \ KD data \ " & amp；活頁3。[D2]& amp；“數據庫。mdb "

Sql = "從計費數據中選擇不同的客戶名稱"

StrN = "從計費數據中選擇不同的客戶名稱"

如果IsNull(strN ),則

MsgBox“數據庫可能為空”

其他

arr = cnn。執行(sql)。GetRows

活頁3。ComboBox1。List =工作表功能。轉置

如果(目標。列= 2或目標。列= 3)和目標。那麽Row = 2

如果是日期(目標)，則

日歷1。價值=目標

其他

日歷1。今天

如果…就會結束

日歷1。Visible = -1

日歷1。Top = ActiveCell。Top + ActiveCell。高度

日歷1。左= ActiveCell。左邊的

其他

日歷1。可見= 0

如果…就會結束

如果…就會結束

如果Sheet3。單元格(2，3)& lt；& gt""或Sheet3。單元格(2，3)& lt；& gt”“那麽

活頁3。ComboBox1。值= " "

如果…就會結束

妳很好。