局域网内使用的事项追踪系统（带每日一帖功能，源码公开）

wangzhongtu · 发表于 2011-4-29 11:34

好没问题
msn：wangzhongtu@hotmail.com
以下几句条件查询中的代码，该怎么理解，如何分解，特别是第5、7、8句，还有stg 好像没有赋值吗？他怎么能用呢！郁闷！请帮忙
1. Dim Str$, Stg$, Sql$
2. Dim i%, j%
3. For i = 1 To 13
4. Str = Me.Controls("ComboBox" & i).Value
5. If Len(Str) Then Stg = Stg & IIf(Len(Stg), " And ", "") & Me.Controls("Label" & i).Caption & " Like '%" & Str
   & "%'"
6. Next
7.  Sql = "Select * From 事项追踪" & IIf(Len(Stg), " Where " & Stg, "")
8.  rs.Open Sql, Cnn, adOpenKeyset, adLockOptimistic

单步执行不了所以请帮忙解释下谢谢啦

[ 本帖最后由 wangzhongtu 于 2011-4-29 18:21 编辑 ]

weixiaoji · 发表于 2011-4-30 12:53

第3句到6句是一个循环，对stg进行赋值
第5句，先判断str是否是空值，是，则跳过，否，则赋给stg，循环执行完后，stg就是将所有的combobox中的值全部联合在一起查询，也就是查询同时满足所有combobox中的要求的记录
第7句是查询语句，iif判断一下stg是否为空，如果为空，则返回一个空值，即查询所有的记录。如果不是，就返回stg的值
第8句是执行这个查询语句
以上供参考，TKS!

wangzhongtu · 发表于 2011-5-2 14:39

恩非常感谢

wangzhongtu · 发表于 2011-5-2 14:45

换成今天这台电脑是好用的郁闷

weixiaoji · 发表于 2011-5-2 15:27

可能和系统有一定的关系，有可能有的定制系统优化了某些东东，而导致不能用。有问题再提出来，谢谢!

wangzhongtu · 发表于 2011-5-3 07:43

我觉得是控件的问题你把那个注册控件的文件上传让大家试试看

[ 本帖最后由 wangzhongtu 于 2011-5-3 07:44 编辑 ]

weixiaoji · 发表于 2011-5-3 08:36

好的，我放到1楼上。
其实在启动的过程中，程序是有自动注册控件的，但不知道在什么情况下会失败。

wangzhongtu · 发表于 2011-5-4 17:43

我找到不能打开使用的原因了：是权限问题，管理员用户可以注册成功，之后就可以打开操作了；

还有打开操作比较容易出错，文件会卡死。

上次传给你的资料有帮忙看过哪里出错吗我还是无法自己调整按条件查询记录

附件上传：注意下载后，调试时需先更改文件的路径

[ 本帖最后由 wangzhongtu 于 2011-5-4 18:29 编辑 ]

weixiaoji · 发表于 2011-5-5 14:31

你要的是不是这种效果啊，TKS!

wangzhongtu · 发表于 2011-5-5 19:52

是这种效果，可是我现在特纳闷为什么直接使用你上传的文件，可以有效果，而我看过里面的代码好像没有什么变化呀请问你到底调整了些什么呢

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

[原创] 局域网内使用的事项追踪系统（带每日一帖功能，源码公开）

回复 82楼 wangzhongtu 的帖子

回复 85楼 wangzhongtu 的帖子

回复 87楼 wangzhongtu 的帖子

回复 89楼 wangzhongtu 的帖子

回复90楼