以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问序号可以根据筛选结果即时生成么  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151342)

--  作者:忆似水流年
--  发布时间:2020/6/21 10:22:00
--  [求助]请问序号可以根据筛选结果即时生成么
 比如全员序号1-100,此时筛选运营部序号变成1-30,如果进一步筛选运营部女职工序号变成1-6.

--  作者:sloyy
--  发布时间:2020/6/21 19:26:00
--  
可以 狐表里面有个 index 参数
--  作者:有点蓝
--  发布时间:2020/6/21 21:32:00
--  
直接使用行号即可:http://www.foxtable.com/webhelp/topics/1539.htm
--  作者:忆似水流年
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间: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

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