- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于客户档案自动输入的问题！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11861)
-- 发布时间：2011/8/14 20:21:00
-- [求助]关于客户档案自动输入的问题！
最近在弄一个客户档案系统 遇到2个问题
此主题相关图片如下：数据.jpg
一.项目里的编号由于经常要删除没用的客户，所以会有一些编号会空闲
此主题相关图片如下：数据1.jpg
例如:瑞风 A0-3 这个客户由于被删了，A0-3这个编号就空闲了，能否用加载树输入新瑞风车的时候 编号列 能够自动匹配闲置的编号 如果没有 再启用新编号
其它车型也有各自的编号
二.记录窗口能否设置成 开启项目后自动打开？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:内控系统.rar |
-- 发布时间：2011/8/14 20:53:00
--
一.建议你不要自寻麻烦,
编号空闲了就空闲了,又不怕不够用,否则你须编码解决.
二.
OpenRecordGrid
用于打开记录窗口。
语法：
OpenRecordGrid(Size)
Size：可选参数，用于指定记录窗口的宽度。
示例：
Tables("员工").OpenRecordGrid()
-- 发布时间：2011/8/14 21:08:00
--
你也可以用专门的一个表X接收你要删除的编号（行）后 再删除。新增加时再从表X中用上闲置的编号，用后再从删除表X中删除已用的编号即可。
这个表X可以是临时表，也可以是固定表。
-- 发布时间：2011/8/14 21:12:00
-- 此法甚好!
楼上的此法甚好!
我试着做做,刚学的,还不在行呢
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:内控系统.rar |
-- 发布时间：2011/8/15 0:42:00
--
多谢楼上几位了。
目前第二个问题解决了
第一个问题 也有些思路了 就是想通过代码解决这个问题！
点击加载树后 编号列 能自动匹配闲置号码 无闲置号码 就启用新号码！
而且 瑞风 瑞鹰。。车型的编号开头也不相同
最终目的是点击加载树输入后 实现：
第一步 先匹配相应车型
第二步 再匹配闲置号码
第三步 无匹配的闲置号码则自动添加一个新号码(新号码要和之前的号码吻合 比如 当前最后一个客户编码是A0-49 那我新添加的就是A0-50)
最后自动输入号码至编号列
我主要寻求一个解决思路~
3楼4楼 的方法也不错 但是还有2个小问题 第一个是自动隐藏这个临时表 第二个是能匹配车型
-- 发布时间：2011/8/15 7:50:00
--
其实编号问题不满解决的，新增行的时候，从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
-- 发布时间：2011/8/15 12:23:00
--
现在如何设置 点击加载树后 就自动执行这代码啊 加载数又没事件项目 例如 双击 后执行的 怎么搞呢？
-- 发布时间：2011/8/15 13:52:00
--
其实啊，编号就不应该补空，编号就像一个人的身份证号码，不能应为某个人死了，其他人的身份证号就重新调整。
-- 发布时间：2011/8/15 14:44:00
--
我们这边每个编号 是分配一个档案袋的
而且每段编号 的档案袋都存放在固定的位置
如果档案袋里的客户作废了 这个档案袋就空闲出来了 新客户的档案自然要先存放到这些空闲的旧档案袋里
的确蛮复杂的 尤其是要配合加载树规范输入
要设计窗口嘛？ 到这种地步
-- 发布时间：2011/8/15 14:55:00
--
另外做个表，列出所有可用的编号，在客户信息表的DataRowAdding事件设置代码：
for Each v As String in DataTables("编号表").GetUnqiueValues("", "编号")
if DataTables("客户档案").Find("编号 = \'" & v & "\'") is Nothing then
e.DataRow("编号") = v
exit for
end if
next