以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查找符号两个以上条件的代码怎么写,find  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8001)

--  作者:andy621
--  发布时间:2010/8/28 11:53:00
--  查找符号两个以上条件的代码怎么写,find
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
--  发布时间:2010/8/28 12:39:00
--  
多个条件用And连接不就行了?
--  作者:blackzhu
--  发布时间:2010/8/28 12:41:00
--  

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

 

 是不是这样?


--  作者:andy621
--  发布时间:2010/8/28 13:44:00
--  
以下是引用czy在2010-8-28 12:39:00的发言:
多个条件用And连接不就行了?

是这么做的,试了好久不行,现在试好了,那些符号弄得头晕!
--  作者: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编辑过]

--  作者: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("作业员_工号") & "\'")


--  作者: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("第一列")&"#") ‘第一列是日期列

 


--  作者:e-png
--  发布时间:2010/8/28 20:09:00
--  

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

 

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


--  作者:andy621
--  发布时间:2010/8/28 21:58:00
--  
以下是引用czy在2010-8-28 15:42:00的发言:

 

应该这样吧?

 

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

是的,