主题：[求助]单元格数字上面加标注

公司的产品要在尺寸上加上标注，以此来区分产品的某种特性。EXCEL中可以用显示拼音字段的功能。请问狐表上有什么功能可以实现相似的情况吗？

自己绘制：http://www.foxtable.com/webhelp/scr/1493.htm

不懂，尺寸是输入单元格的。不同的产品尺寸不一样。箭头的标注有可能在长度上，有可能在宽度上。单元格绘图的话能自己在尺寸上选择字段加以标注吗？主要是为了数字上面的箭头。

类似，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100411&skin=0

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=100066&authorid=0&page=0&star=2

 

我输入4.5*6.5*1^2的字符，就只显示1^2，前面的都隐藏了

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:上下标绘制.table

请问怎么让绘制后的文字紧凑一点，前面的是紧凑了，后面的*和数字之间还是很空
此主题相关图片如下：微信图片_20170926145831.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:上标绘制1.table

Dim e = Args(0)
Dim ColName As String = Args(1)

If e.Col.Name = ColName Then
    Dim i1 As Integer
    Dim i2 As Integer
    Dim ary() As String = e.text.split("*")
    Dim swidth As Double = 0
    For i As Integer = 0 To ary.length-1
        Dim t As String = ary(i)
        Dim ts() As String = {"",""}
        If t.Contains("|")
            Dim ts2() As String = t.Split("|")
            ts(0) = ts2(0)
            ts(1) = ts2(1)
        Else
            ts(0) = t
        End If
        Dim reg As new System.Text.RegularExpressions.Regex("|[+0-9\d\./a-zA-Z→]+$")
        Dim reg1 As new System.Text.RegularExpressions.Regex("|[+0-9\d\-+./a-zA-Z→]+$")
       
        If ts.Length >= 2 AndAlso  reg.IsMatch(ts(0))  Then
            Dim RectF As RectangleF     '绘制区域
            Dim fnt1 As Font = e.Table.Grid.Cols(e.Col.Name).Style.Font.Clone()   '获取大字体
            If e.Height > fnt1.Height Then
                RectF = New RectangleF(e.x+swidth,e.y + (e.Height - fnt1.Height)/2,e.Width ,fnt1.Height)
            Else
                RectF = New RectangleF(e.x+swidth,e.y,e.Width ,e.Height)
            End If
           
            Dim FI As New C1.C1Preview.Util.FontInfo(fnt1)
            Dim fnt2 As New Font(fnt1.Name,FI.SuperscriptSize)                     '获取小字体
            Dim size As SizeF = e.Graphics.MeasureString(ts(0), fnt1)              '计算大字体的位置
           
            Dim sf As new StringFormat
            sf.Trimming = 0
            e.Graphics.DrawString(ts(0),fnt1,Brushes.Red,RectF ,sf)
            swidth += size.width
            Dim s1 As object
            If ts(1) > "" AndAlso reg1.IsMatch(ts(1)) Then
                e.Graphics.DrawString(ts(1),fnt2,Brushes.Red,new RectangleF(e.x+swidth-10,RectF.y ,RectF.Width,RectF.Height) ,sf)
                s1 = e.Graphics.MeasureString(ts(1), fnt2)
                swidth += s1.width-7
            End If
                        
            If i < ary.length-1 Then
                e.Graphics.DrawString("*",fnt1,Brushes.Red, (e.x+swidth-10), RectF.y,sf)
                size = e.Graphics.MeasureString("*", fnt1)
            End If
            e.Text = ""
        End If
    Next
End If

OK，谢谢！

此主题相关图片如下：微信图片_20171114152624.png