Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间转换为字符串问题


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

主题：时间转换为字符串问题
帅哥哟，离线，有人找我吗？
edisontsui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1492 积分：9671 威望：0 精华：0 注册：2014/12/18 16:12:00 		时间转换为字符串问题  发帖心情 Post By：2019/7/11 10:40:00 [只看该作者]

If e.DataCol.Name = "出库数量" and e.DataRow("客户") = "科顺" Then
    Dim d1 As String = Format(date.today,"yyyyMMdd") '取得日期的8位数
    Dim d2 As String = d1.substring(4,4)

    Dim t1 As TimeSpan = CDate(CurrentTable.Current("出入库日期"))
    dim t2 as integer = t1.hours
    dim t3 as integer = t1.minutes
    dim t4 as integer = t1.seconds
    dim t5 as integer = t1.milliseconds

    dim h1 as string
    if t2.length = 1
        H1 = "0" & t2
    else
        H1 = t2
    end if 

    dim m1 as string  
    if m1.length = 1
        m1 = "0" & t3
    else
        m1 = t3
    end if 

    dim s1 as string
    if t4.length = 1
        s1 = "0" & t4
    else
        s1 = t4
    end if 

    dim ms1 as string 
    if t5.length = 1
        ms1 = "00" & t5
    elseif ms1.length = 2
        ms1 = "0" & t5
    else 
        ms1 = t5
    end if

    e.DataRow("条形码") = d2 & h1 & m1 & s1 & ms1
end if

我希望将"出入库日期"这栏的日、时、分、秒、毫秒(比如2019-07-09 12:30:25:221)转换为字符串 0709123025221 作为条形码使用，但是上述代码出现警告：date 值无法转换为 system.timespan

请教如何处理。谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/11 11:06:00 [只看该作者]

If e.DataCol.Name = "出入库日期" andalso e.DataRow.isnull("出入库日期") = false
    e.DataRow("条形码") = Format(e.DataRow("出入库日期"),"MMddHHmmssfff") 
end if
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1492 积分：9671 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/7/11 17:12:00 [只看该作者]

谢谢。

 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1492 积分：9671 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2019/7/12 13:59:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 100
doc.PageSetting.Height = 76
Doc.PageSetting.LeftMargin = 5
Doc.PageSetting.RightMargin = 1
Doc.PageSetting.TopMargin = 5
Doc.PageSetting.BottomMargin = 2

doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
    Dim n As Integer = CurrentTable.Rows.Count - 1
    For i As Integer = 1 To n
        Dim rt As New prt.RenderTable() '定义一个表格对象
        Dim ra As New prt.RenderArea
        Dim rt2 As New prt.RenderTable() '定义一个表格对象
        Dim ra2 As New prt.RenderArea
        Dim r As Row = CurrentTable.Rows(i)
        Dim s1 As Integer = Val(r("每箱数量"))
        Dim s2 As Integer = Val(r("整数箱数"))
        Dim s3 As Integer = Val(r("尾数数量"))

        '指定行数?列数?列宽?行高
        rt.Rows.Count = 7 '设置总行数
        rt.Cols.Count = 2 '设置总列数
        rt.Height = 71 '设置表格的总高度毫米
        rt.Width = 96 '表格宽度为50mm'

        '设置行高
        rt.Rows(0).Height = 6
        rt.Rows(1).Height = 8 
        rt.Rows(2).Height = 15
        rt.Rows(3).Height = 10 
        rt.Rows(4).Height = 8 
'        rt.Rows(5).Height = 14
        rt.Rows(6).Height = 9 
        rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中

        '设置列宽
        rt.Cols(0).Width = 15 
        rt.Cols(1).Width = 79
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.Left '水平居左排列

        '设置合并单元格
        rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.

        '设置各单元格内容
        rt.cells(0,0).Text = "NAME:"
        rt.cells(0,0).Style.Font = new font("Arial", 12)
        rt.Cells(0,1).Text = "广州市柏森塑料制品有限公司 - 062006"
        rt.cells(0,1).Style.Font = new font("Arial", 12)
        rt.Cells(2,0).Text= "ITEM:"
        rt.cells(2,0).Style.Font = new font("Arial", 12)
        rt.cells(3,0).Text = "DESC:"
        rt.cells(3,0).Style.Font = new font("Arial", 12)
        rt.cells(4,0).Text = "QTY:"
        rt.cells(4,0).Style.Font = new font("Arial", 12)
        rt.cells(6,0).Text = "DATE:"
        rt.cells(6,0).Style.Font = new font("Arial", 12)

        rt.Cells(2,1).Text = r("物料编号")
        rt.cells(2,1).Style.Font = new font("Arial", 35)
        rt.Cells(3,1).Text = r("物料名称")
        rt.cells(3,1).Style.Font = new font("Arial", 12)
        rt.cells(4,1).Text = r("出库数量") * (-1)
        rt.cells(4,1).Style.Font = new font("Arial", 12)
        rt.cells(6,1).Text = r("出入库日期")
        rt.cells(6,1).Style.Font = new font("Arial", 12)
 
        Doc.Body.Children.Add(rt) '将表格对象加入到报表中

        '-------------条形码-供应商代号
        ra = rt.cells(1,1).area
        Dim rg As New prt.RenderGraphics
        Dim Bar1 As New BarCodeBuilder
        Bar1.Symbology = Barpro.Symbology.Code128
        bar1.Code = "062006"
        rg = new prt.RenderGraphics
        Bar1.BarHeight = 8
        bar1.DrawOnCanvas(rg.Graphics,0,0,1.2)
        ra.Children.Add(rg)

        '-------------条形码-物料编号
        ra2 = rt2.cells(5,1).area
        Dim rg2 As New prt.RenderGraphics
        Dim Bar2 As New BarCodeBuilder
        Bar2.Symbology = Barpro.Symbology.Code128
        bar2.Code = r("条形码")
        rg2 = new prt.RenderGraphics
        Bar2.BarHeight = 8
        bar2.DrawOnCanvas(rg2.Graphics,0,0,1)
        ra2.Children.Add(rg2)

    Next
Doc.Preview() '预览报表

我的上述代码，第一个条形码（供应商代号）可以出来，为什么见不到第二个条形码(物料代号)出来呢？谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/12 14:05:00 [只看该作者]

ra2 = rt2.cells(5,1).area

定义了一个rt2表格，却没有任何地方用到
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询