查找符号两个以上条件的代码怎么写,find - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查找符号两个以上条件的代码怎么写,find

共有11880人关注过本帖树形打印复制链接主题：查找符号两个以上条件的代码怎么写,find

andy621

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：1258 威望：0 精华：1 注册：2008/9/12 9:06:00

查找符号两个以上条件的代码怎么写,find 发帖心情

Post By：2010/8/28 11:53:00 [只看该作者]

Select Case e.DataCol.Name

Case "作业员_工号"

Dim dr1 As DataRow

dr1 = DataTables("员工资料").Find("[部门工号] = '" & e.NewValue & "'")

If dr1 IsNot Nothing Then

dr("作业员_姓名") = dr1("姓名")

Else dr1 = Nothing

dr("作业员_姓名") = " "

End If

End Select

这个是满足一个条件的,即是在"员工资料"表查找"部门工号"等于当前表"作业员_工号"对应的姓名,如果Find("[部门工号] = '" & e.NewValue & "'")要写两个条件怎么写?

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/8/28 12:39:00 [只看该作者]

多个条件用And连接不就行了？

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/8/28 12:41:00 [只看该作者]

dr1 = DataTables("员工资料").Find("[部门工号] = '" & dr1("部门工号")& and "[作业员_工号]='"& dr1("作业员_工号")& "'")

是不是这样?

andy621

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：1258 威望：0 精华：1 注册：2008/9/12 9:06:00

Post By：2010/8/28 13:44:00 [只看该作者]

以下是引用czy在2010-8-28 12:39:00的发言：
多个条件用And连接不就行了？

是这么做的,试了好久不行,现在试好了,那些符号弄得头晕!

andy621

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：1258 威望：0 精华：1 注册：2008/9/12 9:06:00

Post By：2010/8/28 13:46:00 [只看该作者]

以下是引用blackzhu在2010-8-28 12:41:00的发言：

dr1 = DataTables("员工资料").Find("[部门工号] = '" & dr1("部门工号")& and "[作业员_工号]='"& dr1("作业员_工号")& "'")

是不是这样?

谢谢!试好了,这样才行 dr1 = DataTables("员工资料").Find("[部门工号] = '" & dr1("部门工号") & "' and [作业员_工号] = '" & dr1("作业员_工号")& "' ")

[此贴子已经被作者于2010-8-28 21:57:06编辑过]

czy

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/8/28 15:42:00 [只看该作者]

以下是引用andy621在2010-8-28 13:46:00的发言：

谢谢!试好了,这样才行 dr1 = DataTables("员工资料").Find("[部门工号] = '" & dr1("部门工号")& and [作业员_工号]='"& dr1("作业员_工号")& "'")

[此贴子已经被作者于2010-8-28 13:47:08编辑过]

应该这样吧？

dr1 = DataTables("员工资料").Find("[部门工号] = '" & dr1("部门工号") & "' And [作业员_工号] = '" & dr1("作业员_工号") & "'")

wcs

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1034 积分：7402 威望：0 精华：0 注册：2008/8/31 22:52:00

Post By：2010/8/28 16:34:00 [只看该作者]

如果部门工号是字符型的字段，则上面的代码不对。

注意语法：

dim dr as datarow = datatables("表一").find("第一列 = " & e.datarow("第一列")) ‘第一列是数值列

dim dr as datarow = datatables("表一").find("第一列 = " &"'"& e.datarow("第一列")&"'") ‘第一列是字符列

dim dr as datarow = datatables("表一").find("第一列 = " &"#"& e.datarow("第一列")&"#") ‘第一列是日期列

e-png

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2010/8/28 20:09:00 [只看该作者]

dim dr as datarow = datatables("表一").find("第一列 = " &"'"& e.datarow("第一列")&"'") ‘第一列是字符列

" &" 这个多余了吧。日期型的# 前面的 " &" 也多余了。

andy621

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：1258 威望：0 精华：1 注册：2008/9/12 9:06:00

Post By：2010/8/28 21:58:00 [只看该作者]

以下是引用czy在2010-8-28 15:42:00的发言：

应该这样吧？

dr1 = DataTables("员工资料").Find("[部门工号] = '" & dr1("部门工号") & "' And [作业员_工号] = '" & dr1("作业员_工号") & "'")

是的，

下一主题 >> << 上一主题

主题：查找符号两个以上条件的代码怎么写,find