Foxtable(狐表)用户栏目专家坐堂 → 生成明细账并打印之


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

主题:生成明细账并打印之

美女呀,离线,留言给我吧!
lfz123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:525 积分:4550 威望:0 精华:0 注册:2018/3/24 18:04:00
生成明细账并打印之  发帖心情 Post By:2020/9/16 10:02:00 [只看该作者]

我在表的currentchanged事件中写了如下代码:根据当前行生成该行的明细账并打印之,这样需要我一行一行的点击,我想实现不用我点击,遍历所有行生成明细账并打印之
If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
Else
    If forms("明细账查询").opened() Then
根据当前行生成该行的明细账代码
Dim btn As WinForm.Button = Forms("明细账查询").Controls("Button2") '打印按钮
    end if
end if

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/16 10:07:00 [只看该作者]

那不能放到表事件里,放到窗口按钮

    If forms("明细账查询").opened() Then
for each r as row in tables("表A").rows 根据r生成该行的明细账代码
Dim btn As WinForm.Button = Forms("明细账查询").Controls("Button2") '打印按钮
next
    end if

 回到顶部