[原创]菜鸟？请教个批量输入编号的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教老师：

做了个人员信息的表，从excel导入数据到狐表后，个人编号想用命令批量填入，填入的规则是“部门编号+个人编号”；个人编号以部门为单位，循环从001，002，003……；

比如部门办公室的编号是101，办公室人员编号自动填入：101001，101002

业务科的编号是102 ，业务科人员编号自动填入：102001，102002

请教这段代码该如何写

[此贴子已经被作者于2015/5/27 9:58:26编辑过]

不会做，就上传例子。

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

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 Select

此主题相关图片如下：qq截图20150527102105.jpg

点击选择部门列, 然后点击菜单上面的重置列按钮

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

此主题相关图片如下：qq截图20150527105705.jpg

[此贴子已经被作者于2015/5/27 10:58:25编辑过]

你代码写错了，你把文件发上来，我们帮你写一下。

idx = CInt(max.Substring(2,3)) + 1 '获得最大编号的后三位顺序号,并加1

改成

idx = CInt(max.Substring(lb.Length)) + 1 '获得最大编号的后三位顺序号,并加1

主题：[原创]菜鸟？请教个批量输入编号的问题