Foxtable(狐表)用户栏目专家坐堂 → 怎么用数据表,循环数据表中的uuid生成目录页呢?


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

主题:怎么用数据表,循环数据表中的uuid生成目录页呢?

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)这个主要是数字,符号和中文的字符宽...  发帖心情 Post By:2022/3/28 17:27:00 [只看该作者]

省略号是直接不能省的  所以难度就在这里

用表格两列  就无法显示这个省略号  显得不美观

看看老师还有没有变通处理的办法呢?


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


加好友 发短信
等级:超级版主 帖子:106722 积分:542805 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/29 11:16:00 [只看该作者]

当前代码如下:

''''

Dim cct As Integer = 56 ‘一行显示的字符字节数
Dim doc As New PrintDoc
Dim ss As String
Dim rt As New prt.RenderText
rt.Text = "目录"  & vbcrlf
rt.Style.Font= New Font("方正小标宋简体", 22, FontStyle.Bold)
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center

doc.Body.Children.Add(rt)
For Each s As String() In DataTables("a").getvalues("文件类别|文件类别名称")
    output.show(CLNum(s(0)) & "、" &  s(1))
    rt = New prt.RenderText
    rt.Text = CLNum(s(0)) & "、" &  s(1)
    rt.Style.Font= New Font("黑体", 16, FontStyle.Bold)
    doc.Body.Children.Add(rt)
    For Each dr As DataRow In DataTables("a").Select("文件类别名称='" & s(1) & "'","文件序号")
        output.show(dr("文件序号")& "." & dr("文件名称")  & "……" & dr("文件编号"))
        rt = New prt.RenderText
        rt.Style.Font= New Font("宋体", 16, FontStyle.Bold)
        rt.Style.LineSpacing=200
        Dim a As String = dr("文件序号")& "." & dr("文件名称")

Dim la As Integer = ukey.LenStrA(a) 
        Dim b As String = dr("文件编号")

Dim lb As Integer = ukey.LenStrA(b) 
        Dim sab As String = a & 
"".PadLeft((cct - la - lb)/2,"…") &  b

        rt.Text =  sab
        doc.Body.Children.Add(rt)
    Next
Next
doc.Preview()


 回到顶部
总数 12 上一页 1 2