Foxtable(狐表)用户栏目专家坐堂 → excel报表格式转换的方法


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

主题:excel报表格式转换的方法

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/26 11:47:00 [只看该作者]

请教老师:如何实现自动编号,1,2,3,4………

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


加好友 发短信
等级:超级版主 帖子:106017 积分:539172 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/26 13:32:00 [只看该作者]


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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/29 12:59:00 [只看该作者]

老师:我只想生成自然数简易编号,上面的代码生成不了,用[_identify]有删除行就会不连号。

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


加好友 发短信
等级:超级版主 帖子:106017 积分:539172 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/29 21:39:00 [只看该作者]

datarowadded事件

Dim max As Integer = e.DataTable.Compute("Max(编号)","[_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
If max > 0 Then 
    idx = max + 1 
Else
    idx = 1 
End If
e.DataRow("编号") = idx 

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/30 11:03:00 [只看该作者]

谢谢老师指点。

 回到顶部
总数 115 1.. 上一页 3 4 5 6 7 8 9 10 11 12