Office中国论坛/Access中国论坛
标题:
求助超难问题:怎么在ACCESS里设置数字格式为分数显示?
[打印本页]
作者:
secowu
时间:
2005-7-11 16:33
标题:
求助超难问题:怎么在ACCESS里设置数字格式为分数显示?
求助超难问题:怎么在ACCESS里设置数字格式为分数显示?
由于,在实际使用中,在使用到以英寸为单位时,就不得不必须用分数的格式
在EXCEL里很好实现,为什么在ACCESS就不支持了呢?
作者:
secowu
时间:
2005-7-11 16:39
引用别的高手的话:
如何在ACCSSE中存储和显示有公差、有分数、有角度或平方的记录?请问高手
这是一个如何在ACCSSE中存储和显示一些其他非常规得符号的问题
我在用ACCESS连接SQL建一个加工工艺管理网络系统,其中有些公差、分数、角度,平方等难以存储
我暂时用的办法是:
在OLE型字段中加入EXEL或WORD对象,
虽然能够完成任务,可是碰到那些连WORD和EXEL,都不太熟悉的白痴机械工程师还得教他们使用“文本框”(真衰),同时也不太方便。
请问高手,有没有更好的办法
请教:关于小数转换成分数[求助]
在报表和窗体中如何让数字字段的小数显示成分数的格式,如:0.2显示成1/5。
=====================================================
可以这样来解决啊: 我用VB做的,你可以参考一下
你应该知道怎么样把0.2转化成 2/10吧,这样不就好办了,求出分子和分母的最大公约数,然后进行除法不就可以了。程序如下:
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_Change()
Dim m As Integer
Dim n As Integer
Dim x As Integer
Dim y As Integer
If Text1.Text = "" Then
Exit Sub
End If
If Len(Text1.Text) < 3 Then
Exit Sub
End If
m = Val(10 ^ (Len(Text1.Text) - 2))
n = Val(Right(Text1.Text, Len(Text1.Text) - 2))
x = m
y = n
If y = 0 Then
Text2.Text = "0"
Exit Sub
End If
Do
z = x Mod y
x = y
y = z
Loop While z <> 0
Text2.Text = Str(n / x) & "/" & Str(m / x)
End Sub
现在只能处理不超过6位的小数
==========================================
#################################################################
我要的问题是这样的,不像他那样把 0.5 转化成 1/2
而是在输入框里直接输入 35 1/2,
比如:有这么一个表,有三个字段,
<TABLE cellSpacing=0 cellPadding=0 width=216 border=0 x:str>
<COLGROUP>
<COL style="WIDTH: 54pt" span=3 width=72>
长
宽
高
21 1/4
25 1/3
35
22 1/4
26 1/3
35
23 1/4
27 1/3
35
24 1/4
28 1/3
35
25 1/4
29 1/3
35
<TR height=19>
26 1/4
<TD class=xl22 align=right x:num="30.3333333333333"><FONT face=宋体 color=#11
作者:
海狸先生
时间:
2005-7-11 16:57
你是查询中,还是。。。
作者:
secowu
时间:
2005-7-11 17:05
现在只能处理不超过6位的小数
[
Last edited by secowu on 2005-7-11 at 09:13
]
<BLOCKQUOTE>附件 1:
2185.JPG
(2005-7-11 09:12, 12.16 K)
上面代码,通不了。我是在问呀:
我要的问题是这样的,不像他那样把 0.5 转化成 1/2
而是在输入框里直接输入 35 1/2,
比如:有这么一个表,有三个字段,
<TABLE cellSpacing=0 cellPadding=0 width=216 border=0 x:str><COLGROUP>
<COL style="WIDTH: 54pt" span=3 width=72>
长
宽
高
21 1/4
25 1/3
35
22 1/4
26 1/3
35
23 1/4
27 1/3
35
24 1/4
28 1/3
35
25 1/4
29 1/3
35
26 1/4
30 1/3
35
27 1/4
31 1/3
35
28 1/4
32 1/3
35
29 1/4
33 1/3
35
<TR height=19>
30 1/4
<TD class=xl22 align=right x:num="34.3333333333333"><FONT face=宋体 color=#1111
作者:
海狸先生
时间:
2005-7-11 18:04
[attach]11722[/attach]
在窗体时,试试
作者:
secowu
时间:
2005-7-11 22:27
非常感谢,但是将窗体改成连续窗体时,然后输入数据长、宽、高那个体积,不会自动算出来呢。就是说,体积这一字段不需要在表里面体现出来而是通过动态自动得出的。我试着去删除了您提供的表里的那个“体积”字段然后在窗体里,把体积改成“=长*宽*高”结果就出现错误了。
作者:
海狸先生
时间:
2005-7-11 23:03
[attach]11725[/attach]
作者:
secowu
时间:
2005-7-12 16:43
=IIf(IsNull([txt长]) And IsNull([txt宽]) And IsNull([txt高]),"",Eval(Replace([txt长]," ","+"))*Eval(Replace([txt宽]," ","+"))*[txt高])哦。原来关键在这、这下行了。解决了ACCESS不能用分数进行计算的问题,厉害非常感谢!!!!!!
作者:
secowu
时间:
2005-8-19 22:52
俺要把上面两个做成模块来调用搞不定比如:
长1=47 3/4
那么长2就自动得出为:47 1/2
作者:
secowu
时间:
2005-8-19 22:55
然后宽1=43 6/7体积自动等于长1*宽1
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3