以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]关于客户档案自动输入的问题! (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11861) |
||||
-- 作者:gaoyong30000 -- 发布时间:2011/8/14 20:21:00 -- [求助]关于客户档案自动输入的问题! 最近在弄一个客户档案系统 遇到2个问题
|
||||
-- 作者:don -- 发布时间:2011/8/14 20:53:00 -- 一.建议你不要自寻麻烦, 编号空闲了就空闲了,又不怕不够用,否则你须编码解决. 二. OpenRecordGrid 用于打开记录窗口。 语法: OpenRecordGrid(Size) Size:可选参数,用于指定记录窗口的宽度。 示例: Tables("员工").OpenRecordGrid() |
||||
-- 作者:mr725 -- 发布时间:2011/8/14 21:08:00 -- 你也可以用专门的一个表X接收你要删除的编号(行)后 再删除。新增加时再从表X中用上闲置的编号,用后再从删除表X中删除已用的编号即可。 这个表X可以是临时表,也可以是固定表。 |
||||
-- 作者:ahbzczy -- 发布时间:2011/8/14 21:12:00 -- 此法甚好! 楼上的此法甚好! 我试着做做,刚学的,还不在行呢
[此贴子已经被作者于2011-8-14 21:48:50编辑过]
|
||||
-- 作者:gaoyong30000 -- 发布时间:2011/8/15 0:42:00 -- 多谢楼上几位了。
目前第二个问题解决了
第一个问题 也有些思路了 就是想通过代码解决这个问题!
点击加载树后 编号列 能自动匹配闲置号码 无闲置号码 就启用新号码! 而且 瑞风 瑞鹰。。车型的编号开头也不相同
最终目的是点击加载树输入后 实现:
第一步 先匹配相应车型 第二步 再匹配闲置号码 第三步 无匹配的闲置号码则自动添加一个新号码(新号码要和之前的号码吻合 比如 当前最后一个客户编码是A0-49 那我新添加的就是A0-50) 最后自动输入号码至编号列
我主要寻求一个解决思路~
3楼4楼 的方法也不错 但是还有2个小问题 第一个是自动隐藏这个临时表 第二个是能匹配车型 [此贴子已经被作者于2011-8-15 0:49:33编辑过]
|
||||
-- 作者:狐狸爸爸 -- 发布时间: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 |
||||
-- 作者:gaoyong30000 -- 发布时间:2011/8/15 12:23:00 -- 现在如何设置 点击加载树后 就自动执行这代码啊 加载数又没事件项目 例如 双击 后执行的 怎么搞呢? [此贴子已经被作者于2011-8-15 12:24:25编辑过]
|
||||
-- 作者:狐狸爸爸 -- 发布时间:2011/8/15 13:52:00 -- 其实啊,编号就不应该补空,编号就像一个人的身份证号码,不能应为某个人死了,其他人的身份证号就重新调整。 |
||||
-- 作者:gaoyong30000 -- 发布时间: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
|