以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于窗口中查找按钮代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123863) |
-- 作者:bashanren -- 发布时间:2018/8/24 22:54:00 -- [求助]关于窗口中查找按钮代码问题 各位老师深夜辛苦了!! 我想在A表中做一个窗口,在窗口中有Textbox1和Button4两个控件,我的目的是在Textbox1中输入一个在“HLMC“”列中的一个值,然后点击“Butiton4”按钮,光标就指定到我输入到“Textbox1”中的值的这一行,不是筛选,只是指向。 我的代码这样写,总是达不到目标,请大师们帮忙了,谢谢各位老师!!! Dim Find As String With e.Form.Controls("TextBox1") If .Value IsNot Nothing Then Find = "HLMC= \'" & .Value & "\'" End If \'End With If Find > "" Then Dim r As Integer r = .FindRow("HLXZTJB","[HLMC] Like %Find%") \'HLXZTJB 是我的表名,HLMC是要查找列的列名。 If r >= 0 Then \'如果找到的话 .Position = r \'定位到找到的行. End If End If End With |
-- 作者:有点蓝 -- 发布时间:2018/8/24 23:01:00 -- Dim txt As String = e.Form.Controls("TextBox1").text If txt > "" Then Dim r As Integer = Tables("HLXZTJB").FindRow("[HLMC] Like \'%" & txt & "%") \'HLXZTJB 是我的表名,HLMC是要查找列的列名. If r >= 0 Then \'如果找到的话 Tables("HLXZTJB").Position = r \'定位到找到的行. End If End If
|
-- 作者:bashanren -- 发布时间:2018/8/24 23:12:00 -- 谢谢老师,但执行后提示:表达式包含无效的字符串常量: \'%明月江%。在查找列是有“明月江”这个值的,还请老师帮忙修改下,谢谢!! |
-- 作者:linyunu -- 发布时间:2018/8/24 23:15:00 -- Dim r As Integer = Tables("HLXZTJB").FindRow("[HLMC] Like \'%" & txt & "%\'") |