Foxtable(狐表) → 用户栏目 → 专家坐堂 → tiantian，睡了吗？又一个问题，关于打印事件


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

主题：tiantian，睡了吗？又一个问题，关于打印事件
帅哥哟，离线，有人找我吗？
cyrollin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		tiantian，睡了吗？又一个问题，关于打印事件  发帖心情 Post By：2015/3/13 20:31:00 [显示全部帖子]

之前，加入了一段代码到打印事件：
Select e.Book.TempLate
    Case "派工表模板"
        Dim Sheet As XLS.Sheet = e.Book.Sheets(0)
        Sheet(3,9).Value = "<日期 >= # " & Date.Today & "#>"  '写入打印条件
End Select

打印范围从今天的数据开始打印

现在，我设置了复选框， 如果选中了几行，就能打几行，该如何修改我这个代码呢？

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150313202547.png
图片点击可在新窗口打开查看


Select e.Book.TempLate
    Case "派工表模板"
        Dim Sheet As XLS.Sheet = e.Book.Sheets(0)
        Dim r As Row In Tables("派工表“).Rows
       If r.Checked = True
        Sheet(3,9).Value = GetCheckedRows
     Else
        Sheet(3,9).Value = "<日期 >= # " & Date.Today & "#>"  '写入打印条件
       End If
End Select

这样吗？
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/15 8:45:00 [显示全部帖子]

Bin 不行，生成的报表是空白

看附件

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/15 10:01:00 [显示全部帖子]

如果我不特别选择几行出来打印，他会跳出来一个提示：

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：Excel报表,BeforeBuild
详细错误信息：
未将对象引用设置到对象的实例。
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/15 10:20:00 [显示全部帖子]

恩 ，搞定了 谢谢！但我试图用您上面这个代码，生成派工单时，又不能实现了。也是在表里面选择几个，就打印几个，只能打印连续选择的几行，如果不是连续选择的（复选框打勾）几行，只能打印鼠标所在的那一行。
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/15 10:26:00 [显示全部帖子]

恩 ，是你那样操作的，如下：

Select e.Book.TempLate
    Case "派工单模板"
        Dim Sheet As XLS.Sheet = e.Book.Sheets(0)
        Dim ids As String 
        For Each r As Row In Tables("派工表").GetCheckedRows
             ids = ids & "," & r("_Identify")
      Next
      If ids > "" Then
          Sheet(2,9).Value = "<_Identify in (" & ids.trim(",") & ")>"
      End If
End Select

但没实现
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/15 11:01:00 [显示全部帖子]

恩，学会了。谢谢TIANTIAN

 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/15 11:23:00 [显示全部帖子]

TIANTIAN 老师， 在3楼的附件，这样操作有一个错误

在新增的一行，选一个 客户信息， 再选一个 新老客户，会有：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：表，派工表，DataColChanged
详细错误信息：
调用的目标发生了异常。
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据


不知道什么原因造成的
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/15 11:33:00 [显示全部帖子]

好多代码，TIANTIAN老师， 该动的哪里呢？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询