DateTimePicker值为空时候的打印问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → DateTimePicker值为空时候的打印问题

共有5274人关注过本帖树形打印复制链接主题：DateTimePicker值为空时候的打印问题

tungwun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

DateTimePicker值为空时候的打印问题 发帖心情

Post By：2013/6/4 22:48:00 [只看该作者]

DateTimePicker 代码打印日期,如没有加入日期会打印出01-01-0001请问如何不打印这样数字?

rl = new prt.RenderText

rl.Text = Format(CurRow("付款日期"),"dd-MM-yyyy")

rl.x = 154

rl.y = 59.5

rl.Style.Font = New Font("新細明體", 11, FontStyle.Bold) '设置字体

rl.Style.FontBold = True '字体加粗

doc.body.Children.Add(rl)

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/6/5 5:50:00 [只看该作者]

加个判断，看行不行：

If Forms("XXX").Controls("付款日期").Text > "" Then

rl.Text = Format(CurRow("付款日期"),"dd-MM-yyyy")

Else

rl.Text = ""

End If

tungwun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

谢谢

Post By：2013/6/5 22:43:00 [只看该作者]

付款日期改为DateTimePicker 可用谢谢

If Forms("XXX").Controls("DateTimePicker").Text > "" Then

rl.Text = Format(CurRow("付款日期"),"dd-MM-yyyy")

Else

rl.Text = ""

End If

主题：DateTimePicker值为空时候的打印问题