过磅单如何实现如下格式 日期
此主题相关图片如下：过磅单.jpg
：2015年5月2日 出厂时间为：2015-05-02 08:31:12
参照甜版给修改的凭证日期代码：
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim d As Date
For Each c As object In Doc.Body.Children
If c.Gettype.Name Like "*Table*" Then
Dim t As prt.RenderTable = c
t.Rows(0).Height = 10
t.Rows(0).Style.BackColor = Color.white
t.Rows(0).Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体
For i As Integer = 0 To t.Cols.Count - 1
t.Cells(0,i).Style.TextAlignHorz = prt.AlignHorzEnum.Center
Next
Else If c.Gettype.name Like "*Text*" AndAlso Date.TryParse(c.text,d) Then
c.text = Format(cdate(c.text), "yyyy年MM月dd日")
End If
Next
doc.Preview
加好友 
发短信
Post By：2015/5/3 9:38:00 [只看该作者]
