请甜老师帮忙改一下，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请甜老师帮忙改一下，谢谢

共有1752人关注过本帖树形打印复制链接主题：请甜老师帮忙改一下，谢谢

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/12 22:51:00 [显示全部帖子]

1、这样写还有问题？

rt.Text = "到期日期:"& format(Tables("打印").current("到期日期"), "yyyy-MM-dd")

3、代码 Tables("打印").current 改成 r，然后加上循环

For Each r As Row In Tables("打印").rows

4、上传具体实例说明，哪些行需要打印多份，逻辑是什么？

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/12 22:57:00 [显示全部帖子]

以下是引用xxfoxtable在2017/10/12 22:53:00的发言：
份数加在了这行数据的最后面

如

for i as integer = 1 to Tables("打印").current("份数")

Dim ra As New prt.RenderArea

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/12 22:59:00 [显示全部帖子]

回复5楼，改成 rt.Text = "到期日期:"& format(Tables("打印").current("到期日期"), "yyyy-MM-dd")

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/12 23:39:00 [显示全部帖子]

以下是引用xxfoxtable在2017/10/12 23:32:00的发言：
打印按钮怎么能避免双击呢？

方法一：

e.sender.Enabled = False

'打印代码

e.sender.Enabled = True

方法二：

static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptime
ptime = Date.now
If sp.TotalMilliseconds < 1000 Then '间隔1000毫秒
Return
End If

'打印代码

主题：请甜老师帮忙改一下，谢谢