求一句代码的解释

phenix　发表于：2010-08-17 21:19:37 　

复制

再窗体上用向导生成了一个预览报表的按钮，代码如下，请问红字这一句括号中的数字都是什么意思？谢谢。

Private Sub Command36_Click()
On Error GoTo Err_Command36_Click

Dim stDocName As String

stDocName = ChrW(26187) & ChrW(21319) & ChrW(24037) & ChrW(-29372)
DoCmd.OpenReport stDocName, acPreview

Exit_Command36_Click:
Exit Sub

Err_Command36_Click:
    MsgBox Err.Description
    Resume Exit_Command36_Click

End Sub

Top

文双全发表于：2010-08-17 21:44:21

我也不知道他是什么意思,不过你可以作出下改动

Private Sub Command36_Click()
On Error GoTo Err_Command36_Click

Dim stDocName As String'删除

stDocName = ChrW(26187) & ChrW(21319) & ChrW(24037) & ChrW(-29372)'删除
DoCmd.OpenReport stDocName, acPreview'将stDocName更改为报表名即可如"123报表"

Exit_Command36_Click:
Exit Sub

Err_Command36_Click:
    MsgBox Err.Description
    Resume Exit_Command36_Click

End Sub
修改后为

Private Sub Command36_Click()
On Error GoTo Err_Command36_Click

DoCmd.OpenReport "123报表" , acPreview

Exit_Command36_Click:
Exit Sub

Err_Command36_Click:
    MsgBox Err.Description
    Resume Exit_Command36_Click

End Sub

Top

凡卓发表于：2010-08-17 22:26:52

ChrW(26187) & ChrW(21319) & ChrW(24037) & ChrW(-29372) 表示"晋升工资"

下面信息供参考：

Chr、ChrW 函数

返回 String，其中包含有与指定的字符代码相关的字符。

语法

Chr(charcode)

必要的 charcode 参数是一个用来识别某字符的 Long。

说明

0 到 31 之间的数字与标准的非打印 ASCII 代码相同。例如，Chr(10) 可以返回换行字符。charcode 的正常范围为 0 – 255。然而，在 DBCS 系统，charcode 的实际范围为 -32768 到 65535。

注意 ChrB 函数作用于包含在 String 中的字节数据。ChrB 总是返回一个单字节，而不是返回一个字符，一个字符可能是一个或两个字节。ChrW 函数返回包含 Unicode 的 String，若在不支持 Unicode 的平台上，则其功能与 Chr 函数相同。

注意 Visual Basic for the Macintosh 不支持Unicode 字符串。因此，当n 值在128 – 65,535 范围内时， ChrW(n) 不能像在Windows环境中那样返回所有的 Unicode 字符。相反地，当Unicode 的n 值大于127 时，ChrW(n) 会试图做一个“最好的猜测”。因此，在Macintosh 环境中，不能使用ChrW 。

Top

phenix 发表于：2010-08-17 23:10:55

多谢楼上两位朋友。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

求一句代码的解释