Foxtable(狐表)用户栏目专家坐堂 → [求助]引用顺序号


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

主题:[求助]引用顺序号

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


加好友 发短信
等级:婴狐 帖子:90 积分:730 威望:0 精华:0 注册:2014/2/17 16:27:00
[求助]引用顺序号  发帖心情 Post By:2014/2/26 13:36:00 [只看该作者]

在excel中引用顺序号<Index>默认值是从1开始的,有什么办法让他从0开始呢,全靠代码怎么来实现呢,因为没有在打印输入中加入模板,那还能在里面写事件吗?写事件的判断条件也没有啊,所以不明白了,能不能代码完全实现呢?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/2/26 14:15:00 [只看该作者]

1、在BeforeBuild事件中写上代码:

Select e.Book.TempLate
    Case "模版名称"
        e.Book.Marks.Add("编号",0)
end Select
 
需要注意的是,TempLate返回的模板文件名称是不包括路径和后缀名的, 例如你使用的模板文件名称“出库单.xls”,那么TempLate属性的值等于“出库单”。

2、BuildDetail事件加上代码:


Static i As integer
Select Case e.Book.TempLate
    Case "模板名称"
       i = i + 1
       e.Book.Marks("编号") = i
End Select


 

3、设计模版的时候,引用编号:

 

<编号>

[此贴子已经被作者于2014-2-27 14:14:34编辑过]

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


加好友 发短信
等级:婴狐 帖子:90 积分:730 威望:0 精华:0 注册:2014/2/17 16:27:00
回复:(狐狸爸爸)1、在BeforeBuild事件中写上代码:...  发帖心情 Post By:2014/2/26 14:28:00 [只看该作者]

狐爸,谢谢你可以用了
[此贴子已经被作者于2014-2-26 14:29:32编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/2/26 14:28:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:90 积分:730 威望:0 精华:0 注册:2014/2/17 16:27:00
回复:(狐狸爸爸)BuildDetail事件: http:...  发帖心情 Post By:2014/2/26 14:30:00 [只看该作者]

谢谢狐爸,可以了

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


加好友 发短信
等级:婴狐 帖子:90 积分:730 威望:0 精华:0 注册:2014/2/17 16:27:00
回复:(狐狸爸爸)1、在BeforeBuild事件中写上代码:...  发帖心情 Post By:2014/2/26 14:52:00 [只看该作者]

狐爸 ,我发现个问题,就是如果在不关闭程序的情况下,导2次 第二次的编号要接着第一次开始的不是重新从0开始的,这个要怎么解决呢

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/26 14:54:00 [只看该作者]

导出完毕为I设置为0

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/2/26 14:56:00 [只看该作者]

BeforeBuild事件改一下:

 

Select e.Book.TempLate
    Case "模版名称"
        e.Book.Marks.Add("编号",0)

        e.Book.Marks("编号") = 0
end Select


 回到顶部