Foxtable(狐表)用户栏目专家坐堂 → [求助]关于导入数据存在部分空行造成打印多页的问题


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

主题:[求助]关于导入数据存在部分空行造成打印多页的问题

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


加好友 发短信
等级:婴狐 帖子:17 积分:214 威望:0 精华:0 注册:2011/7/1 15:36:00
[求助]关于导入数据存在部分空行造成打印多页的问题  发帖心情 Post By:2017/5/24 19:53:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:导入数据.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:导入后的情况.png
图片点击可在新窗口打开查看

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

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

图片点击可在新窗口打开查看此主题相关图片如下:打印3.png
图片点击可在新窗口打开查看
打印2的更换材料及备件的序号1的相关内容如何放入打印1的表格更换材料及备件的序号2中,并且打印2不再生成打印。
求各位专家帮忙看看,感谢!



[此贴子已经被作者于2017/5/24 19:57:55编辑过]

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


加好友 发短信
等级:婴狐 帖子:17 积分:214 威望:0 精华:0 注册:2011/7/1 15:36:00
  发帖心情 Post By:2017/5/25 7:36:00 [显示全部帖子]

好的 感谢版主 我先试试

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


加好友 发短信
等级:婴狐 帖子:17 积分:214 威望:0 精华:0 注册:2011/7/1 15:36:00
  发帖心情 Post By:2017/5/25 8:47:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:设备检修档案.zip

项目我上传了,版主帮忙看看

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


加好友 发短信
等级:婴狐 帖子:17 积分:214 威望:0 精华:0 注册:2011/7/1 15:36:00
  发帖心情 Post By:2017/5/25 11:52:00 [显示全部帖子]

恩 我测试了,把第二行的数据填充了后可以正常打印,目前有个新的问题,我直接从别的软件导出来的数据很多这种类型的空行,能在foxtable内实现导入后自动填充吗?

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


加好友 发短信
等级:婴狐 帖子:17 积分:214 威望:0 精华:0 注册:2011/7/1 15:36:00
  发帖心情 Post By:2017/5/25 12:49:00 [显示全部帖子]

Sub cdsr()
On Error Resume Next
    Dim lastrow&, lastcol&
    lastrow = Sheet1.UsedRange.Rows.Count
    lastcol = Sheet1.UsedRange.Columns.Count
    For i = 1 To lastcol
        Range(Cells(2, i), Cells(lastrow, i)).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    Next
End Sub
这是VBA可以直接填充空白单元格上一行的执行代码,能帮忙转化到foxtable里实现吗?这样我就可以直接复制数据到foxtable里执行就可以了

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


加好友 发短信
等级:婴狐 帖子:17 积分:214 威望:0 精华:0 注册:2011/7/1 15:36:00
  发帖心情 Post By:2017/5/25 14:06:00 [显示全部帖子]

恩 执行了 就行了,这种代码每次导入一次就需要重新执行命令?

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


加好友 发短信
等级:婴狐 帖子:17 积分:214 威望:0 精华:0 注册:2011/7/1 15:36:00
  发帖心情 Post By:2017/5/25 16:46:00 [显示全部帖子]

以下是引用有点色在2017/5/25 16:04:00的发言:

 

是的,你可以做一个按钮,或者直接写在导入数据按钮的后面去。

搞定了 用的表属性里的事件Prepare Edit解决了,我复制进来的表就直接执行代码。

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


加好友 发短信
等级:婴狐 帖子:17 积分:214 威望:0 精华:0 注册:2011/7/1 15:36:00
  发帖心情 Post By:2017/5/25 18:02:00 [显示全部帖子]

以下是引用有点色在2017/5/25 17:56:00的发言:

 

不要写到prepareEdit事件去,那段代码很耗时的。

好的 我再改进下,那个模板内的<index>用了后,第二页出现了序号3,第二页应该还是从序号1开始,每页都是一直123456才是。。。能帮忙再改下模板吗?
[此贴子已经被作者于2017/5/25 18:02:39编辑过]

 回到顶部