If onlyFirst Then Tstr = Left(Tstr, 1)

Dim intTstrLong As Integer
Dim strPY As String
Dim i As Long, p As Integer
For intTstrLong = 1 To Len(Tstr)

i = Asc(Mid(Tstr, intTstrLong, 1))
If i <= Asc("°¡") Or i >= Asc("×ù") Then
strPY = strPY & Mid(Tstr, intTstrLong, 1)

Else

If i >= Asc("°¡") And i < Asc("°Å") Then p = 65
If i >= Asc("°Å") And i < Asc("²Á") Then p = 66
If i >= Asc("²Á") And i < Asc("´î") Then p = 67
If i >= Asc("´î") And i < Asc("¶ê") Then p = 68
If i >= Asc("¶ê") And i < Asc("·¢") Then p = 69
If i >= Asc("·¢") And i < Asc("¸Á") Then p = 70
If i >= Asc("¸Á") And i < Asc("¹þ") Then p = 71
If i >= Asc("¹þ") And i < Asc("»÷") Then p = 72
If i >= Asc("»÷") And i < Asc("¿¦") Then p = 74
If i >= Asc("¿¦") And i < Asc("À¬") Then p = 75
If i >= Asc("À¬") And i < Asc("Âè") Then p = 76
If i >= Asc("Âè") And i < Asc("ÄÃ") Then p = 77
If i >= Asc("ÄÃ") And i < Asc("Ŷ") Then p = 78
If i >= Asc("Ŷ") And i < Asc("ž") Then p = 79
If i >= Asc("ž") And i < Asc("ÆÛ") Then p = 80
If i >= Asc("ÆÛ") And i < Asc("È»") Then p = 81
If i >= Asc("È»") And i < Asc("Èö") Then p = 82
If i >= Asc("Èö") And i < Asc("Ëú") Then p = 83
If i >= Asc("Ëú") And i < Asc("ÍÚ") Then p = 84
If i >= Asc("ÍÚ") And i < Asc("Îô") Then p = 87
If i >= Asc("Îô") And i < Asc("ѹ") Then p = 88
If i >= Asc("ѹ") And i < Asc("ÔÑ") Then p = 89
If i >= Asc("ÔÑ") And i <= Asc("×ù") Then p = 90
strPY = strPY & Chr(p)

End If

Next intTstrLong

HZ2PY = strPY

Exit Function

Err:

MsgBox Err.Number & Err.Description

End Function

--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
ÆÊÎö Declare Óï¾ä 2004-1-28 15:08:06
Á˽â¾ä±ú 2004-1-28 15:03:43
Á½¸öδ¹«¿ªµÄACCESS·½·¨µÄʹÓü¼ÇÉ 2003-12-30 14:59:33
Access Êý¾Ý¿âºÍ Access ÏîÄ¿Ö®¼äµÄÊý¾ÝÀàÐ͵ıȽϻòÓ³Éä 2003-12-26 14:20:19
´óÐÍÊý¾Ý¿âÉè¼ÆÔ­Ôò 2003-12-15 12:49:18
ÁíÀà¼ì²âÁªÍø״̬ 2003-11-19 13:37:22
ÈçºÎʵÏÖÎı¾²éÕÒ¹¦ÄÜ-Instrº¯ÊýʹÓü¼ÇÉ 2003-11-18 9:28:25
ÆƽâAccess(*.mdb)Ä¿Ç°ËùÓа汾µÄÃÜÂë 2003-11-17 11:31:05
Access 2000Êý¾Ý¿âµÄÃÜÂëÍüÁËÔõô°ì 2003-11-13 11:05:39
²»µ±±àдSQLÓï¾äµ¼ÖÂϵͳ²»°²È« 2003-11-13 10:55:26
ÏÞÖÆÈí¼þÊÔÓôÎÊý¼°Ê±¼ä 2003-11-13 10:54:17
ÏÞÖÆÈí¼þ30ÌìÊÔÓà 2003-11-13 10:53:18
»ñÈ¡µçÄÔÃû¼°IP 2003-11-7 8:26:20
·­×ª×Ö·û´® 2003-10-29 19:06:46
ÈËÃñ±Ò´óд 2003-10-29 19:04:30
±ÜÃâAccessºÍSQL ServerµÄ¿ÕÖµ³åÍ» 2003-10-17 20:03:19
±í´ïʽÉú³ÉÆ÷Öеļ¸ÖÖ³£Ó÷ûºÅ 2003-10-17 19:55:56
VBÖÐÀûÓÃWinrar½øÐÐÎļþѹËõ 2003-10-17 19:33:08
³õʶVBA£ºµÚÆ߿ΠʹÊó±êÖ¸Ïò°´Å¥Ê±±ä³ÉÊÖÐÎ 2003-10-17 19:31:23
³õʶVBA£ºµÚÁù¿Î СÊýµã´úÂë·ÖÎö¼°ForÑ­»·Óï¾ä 2003-10-17 19:29:45
³õʶVBA£ºµÚÎå¿Î СÊýµã°´Å¥¼°·ÖÖ§Óï¾ä 2003-10-17 19:27:51
³õʶVBA£ºµÚËÄ¿Î ¼ÆËãÆ÷´úÂëµÄ±àд 2003-10-17 19:25:03
³õʶVBA£ºµÚÈý¿Î Éè¼ÆÒ»¸ö¼òµ¥µÄ¼ÆËãÆ÷ 2003-10-17 19:17:40
³õʶVBA£ºµÚÒ»¿Î ³£Óõļ¸¸ö»ù±¾¸ÅÄî 2003-10-17 19:15:46
MS Jet SQL for Access 2000Öм¶Æª (III) 2003-10-17 18:51:47
MS Jet SQL for Access 2000Öм¶Æª (II) 2003-10-17 18:51:01
ʹÓÃADOÁ¬½Óµ½·À»ðǽºóµÄSQL Server 2003-10-17 18:43:57
ADOÈý´ó¶ÔÏóµÄÊôÐÔ¡¢·½·¨¡¢Ê¼þ¼°³£Êý£¨¶þ£© 2003-10-14 8:45:33
ADOÈý´ó¶ÔÏóµÄÊôÐÔ¡¢·½·¨¡¢Ê¼þ¼°³£Êý£¨Èý£© 2003-10-14 8:44:20
ADOÈý´ó¶ÔÏóµÄÊôÐÔ¡¢·½·¨¡¢Ê¼þ¼°³£Êý£¨Ò»£© 2003-10-14 8:43:26
ÈçºÎÕï¶Ï/ÐÞ¸´Ëð»µµÄ Jet 4.0 Êý¾Ý¿â 2003-10-14 8:31:26
ÈçºÎ²»Í¨¹ýÉèÖù¤³ÌÃÜÂëËø¶¨VBA´úÂë? 2003-10-10 10:05:57
AccessÆô¶¯ÃüÁîÐÐÑ¡Ïî´óÈ« 2003-10-10 10:02:00
Ò»¸ö¼òµ¥µÄAdoÓ÷¨Ê¾Àý 2003-10-6 16:24:38
Óà Access 2000 ´ò¿ª Access 97 Êý¾Ý¿âʱ³öÏÖ¡°ÃÜÂëÎÞЧ¡±´íÎó 2003-10-6 16:13:52