标题：[求助]关于客户档案自动输入的问题！
最近在弄一个客户档案系统 遇到2个问题
此主题相关图片如下：数据.jpg
一.项目里的编号由于经常要删除没用的客户，所以会有一些编号会空闲
此主题相关图片如下：数据1.jpg
例如:瑞风 A0-3 这个客户由于被删了，A0-3这个编号就空闲了，能否用加载树输入新瑞风车的时候 编号列 能够自动匹配闲置的编号 如果没有 再启用新编号
其它车型也有各自的编号
二.记录窗口能否设置成 开启项目后自动打开？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:内控系统.rar |
一.建议你不要自寻麻烦,
编号空闲了就空闲了,又不怕不够用,否则你须编码解决.
二.
OpenRecordGrid
用于打开记录窗口。
语法：
OpenRecordGrid(Size)
Size：可选参数，用于指定记录窗口的宽度。
示例：
Tables("员工").OpenRecordGrid()
你也可以用专门的一个表X接收你要删除的编号（行）后 再删除。新增加时再从表X中用上闲置的编号，用后再从删除表X中删除已用的编号即可。
这个表X可以是临时表，也可以是固定表。
多谢楼上几位了。
目前第二个问题解决了
第一个问题 也有些思路了 就是想通过代码解决这个问题！
点击加载树后 编号列 能自动匹配闲置号码 无闲置号码 就启用新号码！
而且 瑞风 瑞鹰。。车型的编号开头也不相同
最终目的是点击加载树输入后 实现：
第一步 先匹配相应车型
第二步 再匹配闲置号码
第三步 无匹配的闲置号码则自动添加一个新号码(新号码要和之前的号码吻合 比如 当前最后一个客户编码是A0-49 那我新添加的就是A0-50)
最后自动输入号码至编号列
我主要寻求一个解决思路~
3楼4楼 的方法也不错 但是还有2个小问题 第一个是自动隐藏这个临时表 第二个是能匹配车型
其实编号问题不满解决的，新增行的时候，从1开始遍历，如果现有行没有1的编号，则采用1作为编号，没有2，则采用2作为编号...
代码大概就是：
dim i as integer = 1
do loop
if 编号为i的行存在 then
i = i+1
else
编号 = i
exit do
end if
loop
其实啊，编号就不应该补空，编号就像一个人的身份证号码，不能应为某个人死了，其他人的身份证号就重新调整。
我们这边每个编号 是分配一个档案袋的
而且每段编号 的档案袋都存放在固定的位置
如果档案袋里的客户作废了 这个档案袋就空闲出来了 新客户的档案自然要先存放到这些空闲的旧档案袋里
的确蛮复杂的 尤其是要配合加载树规范输入
要设计窗口嘛？ 到这种地步
另外做个表，列出所有可用的编号，在客户信息表的DataRowAdding事件设置代码：
for Each v As String in DataTables("编号表").GetUnqiueValues("", "编号")
if DataTables("客户档案").Find("编号 = '" & v & "'") is Nothing then
e.DataRow("编号") = v
exit for
end if
next