Foxtable(狐表)用户栏目专家坐堂 → [求助]单元格数字上面加标注


  共有1962人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
syjylyq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
[求助]单元格数字上面加标注  发帖心情 Post By:2017/9/9 14:34:00 [只看该作者]

公司的产品要在尺寸上加上标注,以此来区分产品的某种特性。EXCEL中可以用显示拼音字段的功能。请问狐表上有什么功能可以实现相似的情况吗?
另外软件输入字段时是在窗口的TextBox控件中输入的。

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/9/9 15:02:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
syjylyq
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2017/9/13 14:50:00 [只看该作者]

不懂,尺寸是输入单元格的。不同的产品尺寸不一样。箭头的标注有可能在长度上,有可能在宽度上。单元格绘图的话能自己在尺寸上选择字段加以标注吗?主要是为了数字上面的箭头。
[此贴子已经被作者于2017/9/13 14:50:35编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/13 15:19:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
syjylyq
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2017/9/18 16:25:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 18:42:00 [只看该作者]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:上下标绘制.table


 回到顶部
帅哥哟,离线,有人找我吗?
syjylyq
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2017/9/26 14:59:00 [只看该作者]

请问怎么让绘制后的文字紧凑一点,前面的是紧凑了,后面的*和数字之间还是很空
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20170926145831.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:上标绘制1.table


[此贴子已经被作者于2017/9/26 14:59:28编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/26 16:39:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
syjylyq
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2017/9/27 15:52:00 [只看该作者]

OK,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
syjylyq
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2017/11/14 15:28:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20171114152624.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20171114152653.png
图片点击可在新窗口打开查看


上标字段导出报表的时候就变回原来的样子了,请问上标的字段有什么办法导出报表的时候也是上标的样子?

 回到顶部
总数 11 1 2 下一页