[转帖]4种在access表中保存显示上标下标平方
时 间:2011-07-13 00:00:00
作 者:十段 ID:16058 城市:江阴
摘 要:比如平方、三次方等。在 WORD 中只要输入一个 2 然后设置其字体效果为上标下标就可以了。
正 文:
方法一:
上标2理解为平方符号,而平方符号是作为特殊字符输入,输入的方法是按住ALT键盘,然后在小键盘上输入4位的数字,比如:
ALT+小键盘0153=™
ALT+小键盘0169=©
ALT+小键盘0174=®
ALT+小键盘0177=±
ALT+小键盘0178=²
ALT+小键盘0179=³
ALT+小键盘0188=¼
ALT+小键盘0189=½
当然,你也可以使用一些输入法的软键盘来输入特殊符号。
你也可以用编程方法实现,access的CHRW函数可以实现你的要求,示例代码如下:
'本测试使用方法:
'按 Alt + F11 键切换到 VBA 编辑器界面
'菜单 -> 插入 -> 模块
'将下列代码 COPY 到新建的模块中
'将光标停留在 TestChrW 这几个字符上,按 F5 键即可运行
Function TestChrW()
'本函数用于测试用 ChrW 函数生成一些特殊符号
'需要引用 Microsoft ActiveX Data Objects 2.? Library
Dim i As Long
Dim str As String
Dim rs As New ADODB.Recordset
'生成本测试所需要的临时表
CreateTestTable
rs.Open "tbl_TestChrW", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable
'这里生成特殊符号只打印到1000,还可以继续打印下去
For i = 0 To 1000
rs.AddNew
rs("number") = i
rs("chrw") = ChrW(i)
rs.Update
str = str & " " & i & ":" & ChrW(i)
DoEvents
If i Mod 20 = 0 Then
Debug.Print str
str = ""
End If
Next
rs.Close
DoCmd.OpenTable "tbl_TestChrW"
End Function
Function CreateTestTable()
'本函数利用错误陷阱生成一个测试用的空表
On Error Resume Next
Dim strSQL As String
strSQL = "drop table tbl_TestChrW"
CurrentProject.Connection.Execute strSQL
If Err <> 0 Then
Debug.Print Err.Description
End If
strSQL = "create table tbl_TestChrW (ID AUTOINCREMENT(1,1),[number] long, [ChrW] text(2))"
CurrentProject.Connection.Execute strSQL
If Err <> 0 Then
Debug.Print Err.Description
End If
End Function
方法二:
把上标2分开理解。"2"是数据,上标是"2"这个数据的显示格式。Access中一般只保存数据本身,不保存数据的格式。既然是格式,那么就另外写一个标记来标识这种格式,在显示的时候另外作处理,不过由于 ACCESS 不支持更改某个控件中的特定字符,要更改格式必须更改整个控件的格式,所以有可能你需要多个控件来完成不同格式的显示。
举例:
³ 就保存为以下数据:<sup>3</sup>
¼ 就保存为:<sup>1/4<sup>
上述方法其实就是创造一种在 ACCESS 中使用的标记语言,其实你也完全可以使用现成的 XML 或者 HTML 标记来完成。
方法三:
平方等符号作为数学公式的一种当然被 MathML 或者 Microsoft 公式 X.0 所支持,因此你也可以用编辑公式的方法来编辑和显示,
方法四:把平方等符号理解为一个图形,可以用一个图片来代替,在保存的时候直接在ACCESS中保存这个图片的物理路径,当然,如果要在其他电脑上显示这些图片必须将图片COPY到其他电脑上。
方法五:把平方等符号理解为某个生僻字,可以用 WINDOWS 附带的造字程序造一个出来。当然,如果要在其他电脑上显示这个自造字就必须在其他电脑上也重新造字。
针对平方这种简单的符号来说
文章来自:Access之家(http://www.AccessHome.cn/)
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access对子窗体数据进行批...(10.30)
- 最精简的组合框行来源数据快速输...(10.25)
- Access仿平台的多值选择器...(10.24)
- 【Access日期区间段查询】...(10.22)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
学习心得
最新文章
- 微软Access邀测新Monaco...(11.12)
- Access列表框左右互选、列表框...(11.11)
- 高效率在导入数据前删除记录(11.10)
- Access报价单转订单示例代码(11.08)
- Access系统自带的日期选择器不...(11.08)
- 分享一下Access工程中的acw...(11.07)
- Access快速开发平台--让有权...(11.04)
- Access快速开发平台--审批选...(11.01)
- ACCESS两张表先各自排序,然后...(10.31)
- Access对子窗体数据进行批量+...(10.30)