- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]专业报表日期的支piao格式代码？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142511)
-- 发布时间：2019/10/29 13:53:00
-- [求助]专业报表日期的支piao格式代码？？
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CUNum(CurRow("出票日期").Year)
rx.x = 92
rx.y = 15
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CCNumber(CurRow("出票日期").Month)
rx.x = 113
rx.y = 15
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CCNumber(CurRow("出票日期").Day)
rx.x = 129
rx.y = 15
上面是我原有的代码，但是当出现10月或者10日时，不会在前面加零。按照现在支票出具要求：10月或者10日前面都要加零。
这个要求如何才能达成？？请各位老师给予帮助。
-- 发布时间：2019/10/29 14:05:00
--
没看懂，截图说明一下前面加零的效果是怎么样的？
-- 发布时间：2019/10/29 14:08:00
--
就是：零壹拾
目前其它格式正常，就是月与日是10时，需要在前面加零
[此贴子已经被作者于2019/10/29 14:09:38编辑过]
-- 发布时间：2019/10/29 14:13:00
--
加个判断
if CurRow("出票日期").Month = 10 then
rx.Text = "零" & CCNumber(CurRow("出票日期").Month)
else
rx.Text = CCNumber(CurRow("出票日期").Month)
end if
-- 发布时间：2019/10/29 16:02:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工会支票套打系统.table |
这个还是不行哦！不知道如何修改？
此主题相关图片如下：无标题.png
-- 发布时间：2019/10/29 16:11:00
--
If CurRow("出票日期").month = 10 Then
rx.Text = "零" & CCNumber(CurRow("出票日期").Month)
Else
rx.Text = CCNumber(CurRow("出票日期").Month)
End If
rx.x = 113
rx.y = 15
doc.body.Children.Add(rx)
rx = new prt.RenderText
If CurRow("出票日期").Day = 10 Then
rx.Text = "零" & CCNumber(CurRow("出票日期").Day)
Else
rx.Text = CCNumber(CurRow("出票日期").Day)
End If
-- 发布时间：2019/10/30 9:07:00
--
此主题相关图片如下：无标题1.png
请老师指导下，这个如何自动换行？
-- 发布时间：2019/10/30 9:24:00
--
指定宽度即可
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
rt.Width = 5
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.Preview() \'预览