private sub 姓名_change()
if biaozhi then
'如果是在「更新後」事件之後觸發的「更改」事件，需要載入所有資料，以確保能正常顯示，
'否則當繫結列和顯示的列不是同一欄位的時候，會造成實際是有值的，但是顯示的是空的
me.姓名.rowsource = " select 姓名,工號,班組,崗位 from 員工資訊 order by 姓名"
biaozhi = false '然後再恢復標誌變數
else
'正常輸入觸發「更新後」事件時，根據當前輸入的文字，對其進行模糊查詢
'這裡要注意3點：
'1. 需要用text屬性才能正確取得輸入的文字內容，因為這時值還未更新，所以不能使用value屬性
'2.me.姓名.rowsource = " select 姓名,工號,班組,崗位 from 員工資訊 order by 姓名"
me.姓名.dropdown
end if
dim ascma as long
me.助記碼 = me.姓名.text
if len(nz(me.助記碼)) > 0 then ascma = asc(me.助記碼)
if (ascma > 96 and ascma < 123) or (ascma > 64 and ascma < 91) then
me.姓名.rowsource = "select 姓名,工號,班組,崗位,hzpy([姓名]) as 首字母 from 員工資訊 where getpyszm([姓名]) like [forms]![誠信實時資訊錄入]![助記碼] & '*'"
me.姓名.dropdown
end if
if biaozhi then
'如果是在「更新後」事件之後觸發的「更改」事件，需要載入所有資料，以確保能正常顯示，
'否則當繫結列和顯示的列不是同一欄位的時候，會造成實際是有值的，但是顯示的是空的
me.姓名.rowsource = " select 姓名,工號,班組,崗位 from 員工資訊 order by 姓名"
biaozhi = false '然後再恢復標誌變數
else
'正常輸入觸發「更新後」事件時，根據當前輸入的文字，對其進行模糊查詢
'這裡要注意3點：
'1. 需要用text屬性才能正確取得輸入的文字內容，因為這時值還未更新，所以不能使用value屬性
'2.me.姓名.rowsource = " select 姓名,工號,班組,崗位 from 員工資訊 order by 姓名"
me.姓名.dropdown
end if
dim ascma as long
me.助記碼 = me.姓名.text
if len(nz(me.助記碼)) > 0 then ascma = asc(me.助記碼)
if (ascma > 96 and ascma < 123) or (ascma > 64 and ascma < 91) then
me.姓名.rowsource = "select 姓名,工號,班組,崗位,hzpy([姓名]) as 首字母 from 員工資訊 where getpyszm([姓名]) like [forms]![誠信實時資訊錄入]![助記碼] & '*'"
me.姓名.dropdown
end if
end sub
演 示：
js 根據中文獲取拼音首字母
js部分 var pinyin param str 判斷中英文 returns 中文返回true，其他返回false function ischinese str param str 獲取拼音的字串 param split 拼音分隔符 param uppercase 是否轉為大寫 returns 結...
中文轉拼音首字母
使用者商品名稱簡拼搜尋 namespace common business 1.5.66 漢字轉拼音類 class pinyin 中文字串轉拼音首字母 strchangepin 漢字轉拼音的首字母 get first letter 漢字轉拼音 str2py 獲取拼音對應ascll碼 pinyin p...
php 中文拼音首字母自動識別
根據陣列的value分組，根據key名排序 function areaarray area,keyindex index ksort return return return 獲取中文拼音首字母 function getfirstchar s0 if fchar ord a and fchar or...