Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共9 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
andy621 发表于: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 & "'")要写两个条件怎么写?
2楼
czy 发表于:2010/8/28 12:39:00
多个条件用And连接不就行了?
3楼
blackzhu 发表于:2010/8/28 12:41:00

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

 

 是不是这样?

4楼
andy621 发表于:2010/8/28 13:44:00
以下是引用czy在2010-8-28 12:39:00的发言:
多个条件用And连接不就行了?

是这么做的,试了好久不行,现在试好了,那些符号弄得头晕!
5楼
andy621 发表于: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编辑过]
6楼
czy 发表于: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("作业员_工号") & "'")

7楼
wcs 发表于: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("第一列")&"#") ‘第一列是日期列

 

8楼
e-png 发表于:2010/8/28 20:09:00

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

 

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

9楼
andy621 发表于:2010/8/28 21:58:00
以下是引用czy在2010-8-28 15:42:00的发言:

 

应该这样吧?

 

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

是的,

共9 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.