关于查询输出（反录入）功能的有关问题

明天の太遥远！ · 发表于 2013-5-4 22:27

本帖最后由明天の太遥远！于 2013-5-4 22:48 编辑

出警信息.zip (255.37 KB, 下载次数: 14) 本人做的一个录入查询系统，第一部分的录入功能基本上做好了现在第二部分（查修）功能有点难为我了，有没有老师或者兄弟们出来指点指点，，先谢！！{:soso_e121:}{:soso_e157:}

问题：当输入“姓名”和“年龄”，按“查修”按钮后应该在当前工作表中查找到同时符合此两种条件信息（如果存在同时符合上述条件的两个或两个以上信息时择取最后一条），并反馈到窗体里相应的位置（如图所示）。然后删除目标所在的正行信息。
如果查无此信息，则出来一个提示框（msgbox“输入信息有误或者无此人信息”）
说明：这个的意思，主要是对于先前录入时有错误的信息，予以调出。调出来需要的部分修改好后再按“确定”按钮后修改过的信息再次被保存下来。

QQ截图20130504215505.png

hehex · 发表于 2013-5-7 16:41

你的查询算法比较有问题，一般用双重循环嵌套来查找是不太好的方法。
更何况是单元格循环，不是数组等，效率会很低。
帮你重新写了查询模块，你原来的代码都注释了，没有动。简单使用了find 和findnext 方法
具体代码方法的问题可查阅相关资料。

我试了一下应该是正常工作的，你再多做测试。特别是同名病人年龄不同的，看看是否会出错误记录。

明天の太遥远！ · 发表于 2013-5-8 00:14

本帖最后由明天の太遥远！于 2013-5-8 00:35 编辑

hehex 发表于 2013-5-7 16:41
你的查询算法比较有问题，一般用双重循环嵌套来查找是不太好的方法。
更何况是单元格循环，不是数组等，效 ...

谢谢你，，你写的代码很正常。但是我才发现我的设计思路有问题，，这里关键词应该为“日期+姓名”，而不是上述例子的“姓名+性别”，主要是要把性别和日期要互换一下功能。但是，，很惭愧，我没办法修改你的代码，我替换成日期后它还是看性别呢，，麻烦你再把代码亲手改一下好吗，，非常的感谢你！
还有，如果可以的话，你把这里的代码再简化一下，我看你的定义和我对“确定-change（）”的定义有很多不同，那么我的代码能不能再简化呢？

hehex · 发表于 2013-5-8 11:02

明天の太遥远！发表于 2013-5-8 00:14
谢谢你，，你写的代码很正常。但是我才发现我的设计思路有问题，，这里关键词应该为“日期+姓名”，而不 ...

修改查修关键字为姓名+日期，上一篇你要求的是姓名+年龄作为关键字，不是姓名+性别，这点请注意。
优化了查修的算法语句，去掉了循环，速度上会更快速。目前没区别，记录少看不出来。
还是那句话，现在这种设计模式还是有隐患，你必须清楚。比如两个同名的病人同一天被你们接收，那么按你的设计逻辑只有当天最后被录入的病人记录能被查询出来。这个概率比起前面的姓名+年龄都相同的情况恐怕也不好说那个更高。
具体参考附件吧

明天の太遥远！ · 发表于 2013-5-9 10:59

hehex 发表于 2013-5-8 11:02
修改查修关键字为姓名+日期，上一篇你要求的是姓名+年龄作为关键字，不是姓名+性别，这点请注意。
优化了 ...

谢谢您这么认真仔细的指正，祝你好运！

明天の太遥远！ · 发表于 2013-5-9 13:48

hehex 发表于 2013-5-8 11:02
修改查修关键字为姓名+日期，上一篇你要求的是姓名+年龄作为关键字，不是姓名+性别，这点请注意。
优化了 ...

哎呀，，又要麻烦你了，你给我写的代码，如果病人不存在时（姓名输入有误时）程序就崩溃了。这个有没有办法修正一下啊？

hehex · 发表于 2013-5-9 14:16

本帖最后由 hehex 于 2013-5-9 14:20 编辑

明天の太遥远！发表于 2013-5-9 13:48
哎呀，，又要麻烦你了，你给我写的代码，如果病人不存在时（姓名输入有误时）程序就崩溃了。这个有没有办 ...

编码不仔细啊，想偷懒，想用一个输出代表2个错误信息，还是老实来吧。
参考附件，并请详细测试。

附件例子中的这段提示信息改为下面的描述更贴切：

ElseIf fName.Offset(, -2) <> CDate(日期.Value) Then
MsgBox "未输入病人姓名或该病人信息输入日期有误", vbExclamation, "错误提示"
Exit Sub
Else
......

当然只是提示而已不影响正常的应用。

明天の太遥远！ · 发表于 2013-5-9 16:00

hehex 发表于 2013-5-9 14:16
编码不仔细啊，想偷懒，想用一个输出代表2个错误信息，还是老实来吧。
参考附件，并请详细测试。

美女，，这个还是有个错误，明明是（2013-05-02）的日期，在检索时怎么输进去都不被认识（试了 2013-05-02,2013-5-2,2013-05-2,2013-5-02等等），这么怪事我也第一次见，这个你有没有办法啊？
呵呵，太麻烦你了，很不好意思，耽误你的时间，如果可以的能不能QQ聊再交流啊？呵呵，你可放心我不会经常打扰你的，，
我的QQ：1966788293

hehex · 发表于 2013-5-9 16:53

明天の太遥远！发表于 2013-5-9 16:00
美女，，这个还是有个错误，明明是（2013-05-02）的日期，在检索时怎么输进去都不被认识（试了 2013-05-0 ...

俺不是美女。这头像是CSDN 上找的。
看看这次的附件，再测试一下。

明天の太遥远！ · 发表于 2013-5-9 21:10

hehex 发表于 2013-5-9 16:53
俺不是美女。这头像是CSDN 上找的。
看看这次的附件，再测试一下。

呵呵，不好意思，，傻猜的，也猜错了，，，，
这次的代码运行很正常。不知道怎么回事，别人写的代码，我很快就学会来，高搞明白的，，你的代码稍微改动就出错，，呵呵，，好吧，我再慢慢研究吧，，谢谢你！

		自动登录	找回密码
密码			免费注册

关于查询输出（反录入）功能的有关问题

评分

评分