ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 9212|回复: 6

[求助] 请问CHRW是什么函数

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-7-19 15:57 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click

    Dim stDocName As String

    stDocName = ChrW(21592) & ChrW(24037) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command5_Click:
    Exit Sub

Err_Command5_Click:
    MsgBox Err.Description
    Resume Exit_Command5_Click
   
End Sub


请问哪位知道上面这段程序是什么意思,这是Access中的一段程序,可是不知道是什么意思,特别是chrw(21952)不明白其作用

TA的精华主题

TA的得分主题

发表于 2010-7-19 16:14 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Chr、ChrW函数

  Visual Basic 语言参考   Chr、ChrW 函数   返回与指定字符代码相关联的字符。   Public Function Chr(ByVal CharCode As Integer) As Char   Public Function ChrW(ByVal CharCode As Integer) As Char   参数   CharCode   必选。Integer 表达式,表示字符的“码位”或字符码。如果 CharCode 不在有效范围之内,将发生 ArgumentException 错误。Chr 的有效范围是 0 到 255,而 ChrW 的有效范围是 -32768 到 65535。   异常   异常类型 错误号 条件   ArgumentException   5   CharCode < -32768 或 > 65535(对于 ChrW)。   ArgumentException   5   CharCode < 0 或 > 255(对于 Chr)。   如果正在升级使用无结构错误处理的 Visual Basic 6.0 应用程序,请参见“错误号”一列。(您可以根据 Number 属性(Err 对象)比较错误号。)然而,如果可能,应当考虑用 Visual Basic 的结构化异常处理概述替换这种错误控制。   备注   CharCode 接受的不对称范围补偿 Short 数据类型 (Visual Basic) 和 Integer 数据类型 (Visual Basic) 之间的存储差异。例如,-29183 为 Short,但 +36353 为 Integer。这也有利于与 Visual Basic 6.0 兼容。   Chr 使用 System.Text 命名空间中的 Encoding 类来确定当前线程使用的是单字节字符集 (SBCS) 还是双字节字符集 (DBCS)。然后将 CharCode 作为相应字符集中的码位。对于 SBCS 字符,范围为 0 到 255,对于 DBCS 字符,范围为 -32768 到 65535。有关单字节 ASCII 字符的图表,请参见 ASCII 字符代码。   返回值取决于当前线程的代码页,该代码页包含在 System.Globalization 命名空间中 TextInfo 类的 ANSICodePage 属性中。通过指定 System.Globalization.CultureInfo.CurrentCulture.TextInfo.ANSICodePage 可以获得 ANSICodePage。   ChrW 以 CharCode 作为 Unicode 码位。其范围与当前线程的区域性和代码页设置无关。-32768 到 -1 范围内的值的处理方式与 +32768 到 +65535 范围内的值相同。   从 0 到 31 的数字与标准的非打印 ASCII 码相同。例如,Chr(10) 返回换行符。   注意   Visual Basic 早期版本中的 ChrB 函数返回一个单字节。它主要用于在双字节字符集 (DBCS) 应用程序中转换字符串。Visual Basic 和 .NET Framework 中的所有字符串均采用 Unicode 的形式,并且不再支持 ChrB。   示例   下面的示例使用 Chr 函数返回与指定的字符码相关联的字符。   Visual Basic 复制代码   Dim associatedChar As Char   ' Returns "A".   associatedChar = Chr(65)   ' Returns "a".   associatedChar = Chr(97)   ' Returns ">".   associatedChar = Chr(62)   ' Returns "%".   associatedChar = Chr(37)   要求   命名空间: Microsoft.VisualBasic   模块: Strings   程序集: Visual Basic Runtime Library(在 Microsoft.VisualBasic.dll 中)   Chr 函数返回与指定的 ANSI 字符代码相对应的字符。   Chr(charcode)   charcode 参数是可以标识字符的数字。   说明从 0 到 31 的数字表示标准的不可打印的 ASCII 代码。例如,Chr(10) 返回换行符。   下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:   Dim MyCharMyChar = Chr(65) '返回 A。MyChar = Chr(97) '返回 a。MyChar = Chr(62) '返回 >。MyChar = Chr(37) '返回 %。注意 ChrB 函数与包含在字符串中的字节数据一起使用。ChrB 不是返回一个或两个字节的字符,而总是返回单个字节的字符。ChrW 是为使用 Unicode 字符的 32 位平台提供的。它的参数是一个 Unicode (宽字符)的字符代码,因此可以避免将 ANSI 转化为 Unicode 字符。

TA的精华主题

TA的得分主题

发表于 2010-7-19 19:32 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-10-11 13:48 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
打开名称为“员工信息查询”的查询

TA的精华主题

TA的得分主题

发表于 2014-10-11 13:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
ChrW(21592) & ChrW(24037) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)=员工信息查询

TA的精华主题

TA的得分主题

发表于 2016-9-1 15:19 | 显示全部楼层
tsoyzm 发表于 2014-10-11 13:49
ChrW(21592) & ChrW(24037) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)=员工信息查询

ChrW(21592) 是“员”,请问这个代码是怎么获取的?如果我想反向查怎么查?谢谢

TA的精华主题

TA的得分主题

发表于 2020-12-28 15:43 | 显示全部楼层
guojianlin1985 发表于 2010-7-19 16:14
Chr、ChrW函数

  Visual Basic 语言参考   Chr、ChrW 函数   返回与指定字符代码相关联的字符。  ...

感觉我把这段文字看懂都得几天时间了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 10:43 , Processed in 0.026821 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表