|
可以考虑使用复杂的函数
- Function FindLabel ( [整数字段] , [分子字段] , [分母字段] )
- dim a,b,c,d
- a=len ( [整数字段] )
- b=len ( [分子字段] )
- c=len ( [分母字段] )
- if (b>c) then
- d=b
- else
- d=c
- end if
- FindLabel =[分子字段] & vbnewline& [整数字段] & string(d*0.5,"—") & vbnewline & space(a) & [分母字段]
- End Function
复制代码
|
|