以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于转大写的函数求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45537)
--  作者：9EQ98
--  发布时间：2014/1/29 21:24:00
--  关于转大写的函数求助

Dim dr As DataRow
dr = DataTables("Menu_List").Find("Upper(Trim([Pope_Name])) =\'" & "修改密码".Trim().ToUpper() & "\'")
If dr IsNot Nothing Then \'如果找到的话
    Messagebox.Show("任务名称:" & dr("Pope_Name"))
End If

 

 

 

dr = DataTables("Menu_List").Find("Trim([Pope_Name]) =\'" & "修改密码".Trim().ToUpper() & "\'") \'这条语句能执行正常

 

\'以下这些语句都不能正常执行

dr = DataTables("Menu_List").Find("Upper(Trim([Pope_Name])) =\'" & "修改密码".Trim().ToUpper() & "\'")

dr = DataTables("Menu_List").Find("ToUpper(Trim([Pope_Name])) =\'" & "修改密码".Trim().ToUpper() & "\'")

dr = DataTables("Menu_List").Find("[Pope_Name].Trim().ToUpper() =\'" & "修改密码".Trim().ToUpper() & "\'")



 
--  作者：y2287958
--  发布时间：2014/1/29 22:22:00
--  
上个例子吧
有点乱乱的