Foxtable(狐表)用户栏目专家坐堂 → [求助]请问序号可以根据筛选结果即时生成么


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

主题:[求助]请问序号可以根据筛选结果即时生成么

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


加好友 发短信
等级:幼狐 帖子:156 积分:1445 威望:0 精华:0 注册:2020/5/21 16:23:00
[求助]请问序号可以根据筛选结果即时生成么  发帖心情 Post By:2020/6/21 10:22:00 [只看该作者]

 比如全员序号1-100,此时筛选运营部序号变成1-30,如果进一步筛选运营部女职工序号变成1-6.

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


加好友 发短信
等级:九尾狐 帖子:2180 积分:13804 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2020/6/21 19:26:00 [只看该作者]

可以 狐表里面有个 index 参数

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


加好友 发短信
等级:幼狐 帖子:156 积分:1445 威望:0 精华:0 注册:2020/5/21 16:23:00
  发帖心情 Post By:2020/7/2 2:11:00 [只看该作者]

 蓝大您好 不好意思我太菜了 捣鼓了3小时看文档 想请教您两个问题
1. 是在表属性-事件-DataColChanged里写这个需求的代码最合适么
2. 我按文档依葫芦画瓢写了下面的代码 不知道有啥需要改进的么 还烦请您不惜赐教 小弟先谢过啦
Select e.DataCol.Name
    Case "考核体"
        If e.DataRow.IsNull("考核体") Then
            e.DataRow("序号") = Nothing
        Else
            Dim xh As Integer = Tables("cmstsh_hmc").Current.Index
            e.DataRow("序号") = xh
        End If
End Select
谢谢蓝大啦:D
[此贴子已经被作者于2020/7/2 2:37:53编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106367 积分:540976 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/2 8:55:00 [只看该作者]

不适合在表事件里做,做个窗口按钮,直接遍历所有行赋值

for each r as row in tables("cmstsh_hmc").rows
r("序号") = r.index
next

这种随时会改变的序号有什么意义?还不如需要的时候直接使用行号即可:Tables("cmstsh_hmc").Current.Index

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


加好友 发短信
等级:幼狐 帖子:156 积分:1445 威望:0 精华:0 注册:2020/5/21 16:23:00
  发帖心情 Post By:2020/7/2 13:44:00 [只看该作者]

 谢谢蓝大指点 我把窗口这事忘了 谢谢啦 我刚开始学foxtable 然后又怕用的人觉得菜单复杂 编译的时候就没带系统菜单 再加上还没学到导出报表那块
所以暂时希望 用的人对树形目录筛选后的结果 至少能复制粘贴到excel表里 粘贴过去的时候序号是根据筛选结果实时生成的
我想打赢我手上的这场时间超紧的战争 只能靠每天有新进展放点东西出来抢占先机 等全部学完了手册再动工 可能就没有机会了:D
[此贴子已经被作者于2020/7/2 14:00:10编辑过]

 回到顶部