Foxtable(狐表)用户栏目专家坐堂 → 为什么生成的Excel报表会产生2页?


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

主题:为什么生成的Excel报表会产生2页?

帅哥哟,离线,有人找我吗?
wusim
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
为什么生成的Excel报表会产生2页?  发帖心情 Post By:2016/5/6 22:50:00 [显示全部帖子]

为什么生成的Excel报表会产生2页?

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2016/5/7 9:33:00 [显示全部帖子]

选2项是用来动态生成出厂编号及合计我选择几行记录,能不能生成汇总的第1页,能不能用代码只保留笫1页,其他页删除。

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


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2016/5/7 12:28:00 [显示全部帖子]

生成报表我只需要第1页,其他不要删除。怎样处理

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目.rar


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


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2016/5/7 16:19:00 [显示全部帖子]

运行有问题?

图片点击可在新窗口打开查看此主题相关图片如下:22.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table




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


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2016/5/8 17:18:00 [显示全部帖子]

我将表A改成基本信息表 横板也作相应的更改, 生成报表时,显示错误,不知什么问题

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:横向动态打印设置.rar


此主题相关图片如下:1.jpg
按此在新窗口浏览图片

 

 

还有当增加一行、多行或克隆一行时都锁定前一行怎样改: 

Tables("订单").Current.Locked = True


 

[此贴子已经被作者于2016/5/9 8:02:38编辑过]

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


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2016/5/9 8:37:00 [显示全部帖子]

还有当新增一行、多行或克隆行都锁定前一行,

 

Tables("订单").Current.Locked = True 怎样改

 

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


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2016/5/9 8:47:00 [显示全部帖子]

我在BeforeAddDataRow 输入代码

Dim dr As Row  = Tables("表A").Current

Dim dr2 As Row = Tables("表A").AddNew

dr.Locked = True

 

当按新增行时软件马上闪退


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


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2016/5/9 16:24:00 [显示全部帖子]

锁定最末行以下代码有没有可以优化

With Tables("表A")
    .Position = .Rows.Count - 1
End With
Dim dr As Row  = Tables("表A").Current
dr.Locked = True


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


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2016/5/10 23:24:00 [显示全部帖子]

这种情况能不能只打1页

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:报表.xls


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


加好友 发短信
等级:小狐 帖子:391 积分:3179 威望:0 精华:0 注册:2008/8/31 20:44:00
  发帖心情 Post By:2016/5/11 6:08:00 [显示全部帖子]

当我选定4行,按生成报表后,一共生成了4页,现只需要第一页,其他页不要。

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/5/11 6:08:50编辑过]

 回到顶部
总数 12 1 2 下一页