Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]菜鸟？请教个批量输入编号的问题


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

主题：[原创]菜鸟？请教个批量输入编号的问题
帅哥哟，离线，有人找我吗？
ehomecd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		[原创]菜鸟？请教个批量输入编号的问题  发帖心情 Post By：2015/5/27 9:57:00 [显示全部帖子]

请教老师：
     做了个人员信息的表， 从excel导入数据到狐表后，个人编号想用命令批量填入，填入的规则是“部门编号+个人编号”；个人编号以部门为单位，循环从001，002，003……；
     比如部门办公室的编号是101，办公室人员编号自动填入：101001，101002
                业务科的编号是102  ，业务科人员编号自动填入：102001，102002

请教这段代码该如何写
[此贴子已经被作者于2015/5/27 9:58:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ehomecd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		  发帖心情 Post By：2015/5/27 10:23:00 [显示全部帖子]

根据帮助，抄过来改了 代码：但这个代码是一行一行增加编号，如何该一下代码，能够让在命令窗口执行一次，就填入所有的工号？



Select DataTables("员工资料").DataCol.Name
    Case "部门"
        If DataTables("员工资料").DataRow.IsNull("部门") Then
            DataTables("员工资料").DataRow("工号") = Nothing
        Else
            Dim lb As String = DataTables("员工资料").DataRow("部门编号")
            If DataTables("员工资料").DataRow("工号").StartsWith(lb) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = DataTables("员工资料").Compute("Max(工号)","部门编号 = '" & lb & "' And [_Identify] <> " & DataTables("员工资料").DataRow("_Identify")) '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.Substring(2,3)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                DataTables("员工资料").DataRow("工号") = lb & Format(idx,"000")
            End If
        End If
End Select


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150527102105.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ehomecd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		  发帖心情 Post By：2015/5/27 10:58:00 [显示全部帖子]

重置列像不行，好像应该写成循环遍历的

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150527105705.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2015/5/27 10:58:25编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 5 次数据查询